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INTERIM REPORT 


The RICIS Concept 


The University of Houston-Clear Lake established the Research Institute for 
Computing and Information Systems (RICIS) in 1 986 to encourage the NASA 
Johnson Space Center (JSC) and local industry to actively support research 
in the computing and information sciences. As part of this endeavor, UHCL 
proposed a partnership with JSC to jointly define and manage an integrated 
program of research in advanced data processing technology needed for JSC’s 
main missions, including administrative, engineering and science responsi- 
bilities. JSC agreed and entered into a continuing cooperative agreement 
with UHCL beginning in May 1986, to jointly plan and execute such research 
through RJCIS. Additionally, under Cooperative Agreement NCC 9-16, 
computing and educational facilities arc shared by the two InstiLuLions to 
conduct the research. 

The UHCL/R1CIS mission is to conduct, coordinate, and disseminate research 
and professional level education In computing and information systems to 
serve the needs of the government, industry, community and academia. 
RICIS combines resources of UHCL and its gateway affiliates to research and 
develop materials, prototypes and publications on topics of mutual interest 
to its sponsors and researchers. Within UHCL, the mission is being 
implemented through interdisciplinary involvement of faculty and students 
from each of the four schools: Business and Public Administration, Educa- 
tion, Human Sciences and Humanities, and Natural and Applied Sciences. 
RICIS also collaborates with industry in a companion program. This program 
is focused on serving the research and advanced development needs of 
industry. 

Moreover, UHCL established relationships with other universities and re- 
search organizations, having common research interests, to provide addi- 
tional sources of expertise to conduct needed research. For example, UHCL 
has entered into a special partnership with Texas A&M University to help 
oversee RICIS research and education programs, while other research 
organizations are involved via the “gateway" concept 

A major role of RICIS then is to find the best match of sponsors, researchers 
and research objectives to advance knowledge in the computing and informa- 
tion sciences. RICIS, working jointly with its sponsors, advises on research 
needs, recommends principals for conducting the research, provides tech- 
nical and administrative support to coordinate the research and integrates 
technical results into the goals of UHCL, NASA/JSC and industiy. 
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Section 1 


Introduction 



Introduction 


What each section contains 

Section 1 — This introduction. 

Section 2 — This section contains a diagram showing how the various 
routines are grouped together into functional modules. For example, 
all routines that involve term maintenance are grouped together. 

Also, this section has a diagram showing the relationship of the 
database files and their fields and subfiles. At the end of the section 
is a page illustrating some conventions used when printing procedure 
names, types of variables, and referencing layouts, files, and fields. 

Section 3 — This section contains a printout of all the layouts in the 
system along with their associated layout procedures. 

Section 4 — This section contains listings of all the global procedures in 
the system. It also contains a listing of the menu bar and password 
structure. 

Section 5 — This section contains a cross-reference of all identifiers 
(excluding 4th Dimension’s built in routines) used in the system. 

Section 6 — This section contains descriptions of the external 
procedures used in the system. 


Further Information 

For more information about the procedure and cross-reference listing, 
please consult the 4th Dimension Utilities and Developer’s Notes! 
section on the 4D XRef program. For descriptions of 4th Dimension’s 
built in commands, consult the 4th Dimension Command Reference. 
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Procedure and Database 
Structure 



THESAURUS STRUCTURE 


Layouts and layout procedures are underlined. 
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CROSS REFERENCE CONVENTIONS 


Layout, File and Field Naming Conventions 
LayoutName.[FileName]Field’Subfield 


Variable Naming Conventions 

bAbc — Layout button variable 
vAbc — Layout variable 
$abc — Local variable 
$0 — Function return value 
$1-9 — Parameters 


Procedure Display Conventions 

BOLD — 4th Dimension procedure 
Bold — 4thDimension function 
Italic — Global procedure or function 
Bold Italic — External procedure 


Cross Reference Identifiers 

E — External procedure 
F — File 
L — Layout 
P — Procedure 
V — Variable 


Section 3 


Layouts and Layout Procedures 
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' Purpose: handles the main term display screen 
' Calls: LoadTerm, HandleMenu 

rlf (Before) 

LoadTerm 
L End If 

"If (During) 

rlf (Menu selected#0) 

HandleMenu 

Else 

' add to buffer button 
ReadButt (x;bAdd) 
rlf(x-i) 

vKeysO:«vKeysO+1 
vKeys{vKeysO}:»[Main]Term 
ALERT([Main]Term+" added to buffer.’) 

L End If 

' edit term button 
ReadButt (x;bEdit) 
rlf(x-i) 

$pass>Request(*Enter Password:’) 
rlf ($pass-’master“) 

EditTerm2 
LoadTerm 
L End If 
L End If 

' scroll term pictures up 
ReadButt (x;bTermPicllp) 
rlf(x-l) 

PREVIOUS SUBRECORD(Pictures) 

[ If (Before subselectlon(Pictures)) 

LAST SUBRECORO(Pictures) 

• End if 

LOAD LINKED RECORD(Pictures'Name) 
vTermPic:-[Pics]Pic 
vPicName:-[Pics]Name 
L End If 

' scroll term pictures down 
ReadButt (x;bTermPicDow) 
rlf (x-1) 

NEXT SUBRECORD(Pictures) 

[ If (End subselectlon(Pictures)) 

FIRST SUBRECORD(Pictures) 

End if 

LOAD LINKED RECORD(Pictures Name) 

vT ermPic:-[Pics]Pic 
vPicName>(P ics]Nam e 
L End If 

' scroll link pictures up 
ReadButt (x;bLinkPicUp) 
rlf(x-l) 

PREVIOUS SUBRECORD([lndex]Pictures) 

t lf (Before subselectlon([lndex]Pictures)) 
LAST SUBRECORD([lndex]Pictures) 

End If 

LOAD LINKED RECORD([lndex]Pictures'Name) 
vLinkPic:-[Pics]Pic 
L End If 

' scroll link pictures down 
ReadButt (x;bLinkPicDow) 
r 
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rlf (x-1) 

NEXT SUBRECORD([lndex]Pictures) 

[ If (End subselectlon([lndex]Pictures)) 

FIRST SUBRECORD([lndex]Pictures) 

End if 

LOAD LINKED RECORD([lndex]Pictures’Name) 
vLinkPic>[Pics]Pic 
L End If 

' scroll link terms down 
ReadButt (x;bLinkDow) 
rlf (x-1) 

EXECUTE(”vPrevLink>[Main]'+RecStr+”Term") 

EXECUTE(”NEXT SUBRECORD([Main]*+RecStr+”)’) 
EXECUTE(’bool:-End subselection([Main]’+RecStr+')") 
rlf (bool) 

EXECUTEfFIRST SUBRECORD([Main]’+RecStr+’)“) 

L End If 

EXECUTE('LinStr>[Main]'+RecStr+’Term”) 

vLinkr-LinStr 

vGo>’Go to ”+LinStr+-" 

EXECUTEfNEXT SUBRECORD((Main]’+RecStr+")') 
EXECUTE('bool:=End subselection([Main]'+RecStr+’)") 
rlf (bool) 

EXECUTEfFIRST SUBRECORD([Main]*+RecStr+")’) 

L End If 

EXECUTE("vNextLink>[Main]"+RecStr+*'Term") 
EXECUTEfPREVlOUS SUBRECORD([Main]'+RecStr+”)’) 
EXECUTE("bool>Before subselection([Main]’+RecStr+')*) 
rlf (bool) 

EXECUTE("LAST SUBRECORD([Main]"+RecStr+")") 

L End If 

EXECUTE("SEARCH BY INDEX([lndex]Term-(Main]'+RecStr+'TermD 
ALL SUBRECORDS([lndex]Pictures) 
rlf (Records In subselectlon([lndex]Pictures)<2) 

ButtStata (0;bLinkPicUp) 

ButtStata (0;bLinkPicDow) 

REDRAW(bLinkPicUp) 

REDRAW(bLinkPicDow) 

rlf (Records In subselection([lndex]Pictures)>1) 

LOAD LINKED RECORD([lndex]Pictures Name) 
vLinkPic:-[Pics]Pic 
Else 

vLinkPioMTPic 

L End 

Else 

ButtStata (1;bLinkPicUp) 

ButtStata (1;bLinkPicDow) 

REDRAW(bLinkPicUp) 

REDRAW(bLinkPicDow) 

LOAD LINKED RECORD([lndex]Pictures’Name) 
vLinkPic:=[Pics]Pic 
L End If 
L End If 

' scroll link terms up 
RaadButt (x;bLinkUp) 
rlf (x-1) 

EXECUTE(”vNextLink:-[Main]"+RecStr+”Term’) 
EXECUTE("PREVIOUS SUBRECORD([Main]"+RecStr+’)") 
EXECUTE(*bool:-Before subselection([Main]"+RecStr+*)") 
rlf (bool) 

EXEC UTEfLAST SUBRECORD((Main]’+RecStr+")’) 
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u End If 

EXECUTE('LinStr>[Main]"+RecStr+’T 0 rm’) 

vLink:-LinStr 

vGo:«"Go to ™+LinStr+'" 

EXECUTE(-PREVIOUS SUBRECORD([Main]’+RecStr+’)") 
EXECUTE("bool:-Before subselection([Main]’+RecStr+")’) 
rlf (bool) 

EXECUTEfLAST SUBRECORD([Main]’+RecStr+’)’) 

L End If 

EXECUTE('vPrevLink:-[Main]"+RecStr+"Term") 

EXECUTE(*NEXT SUBRECORD([Main]’+RecStr+")") 
EXECUTE("bool:»End subselection([Main]'+RecStr+")’) 
rlf (bool) 

EXECUTEfFIRST SUBRECORD([Main]'+RecStr+")") 

L End If 

EXECUTECSEARCH BY INDEX([lndex]Term-[Main]%RecStr+’Termn 
ALL SUBRECORDS([lndex]Pictures) 
rlf (Records in subselectlon([lndex]Pictures)<2) 

ButtState (0;bLinkPicUp) 

ButtStato (0;bLinkPicDow) 

REDRAW(bLinkPicUp) 

REDRAW(bLinkPicDow) 

rlf (Records In subselectlon([lndex]Pictures)-1) 

LOAD LINKED RECORD([lndex]Pictures'Name) 
vLinkPic>(Pics]Pic 
Else 

vLinkPioMTPic 
L End If 
Else 

ButtStat e (1;bLinkPicUp) 

ButtStat a (1;bLinkPicDow) 

REDRAW(bLinkPicUp) 

REDRAW(bLinkPicDow) 

LOAD LINKED RECORD([lndex]Pictures'Name) 
vLinkPic>(Pics]Pic 
L End If 
L End If 

' go to term button 
ReadButt (x;bGO) 
rlf(x-l) 

SEARCH BY INDEX([Main]Term»vLink) 

LoadTorm 
L End If 

' display related terms 
~lf ((bRel-1 )&(RecStr#"Related*)) 

RecStr>*Related* 

vLinkPioMTPic 

rlf (Records In subselectlon([Main]Related)<2) 

ButtState (0;bLinkUp) 

ButtState (0;bLinkDow) 

REDRAW(bLinkUp) 

REDRAW(bLinkDow) 

rlf (Records In subselectlon([Main]Related)-1) 

ButtState (1;bGo) 

REDRAW(bGo) 

SEARCH BY INDEX([lndex]Term-RelatedTerm) 

ALL SUBRECORDS([lndex]Pictures) 
rlf (Records In subselectlon([lndex]Pictures)<2) 

ButtState (0;bLinkPicUp) 

ButtState (O.bLinkPicDow) 

REDRAW(bLinkPicUp) 
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j REDRAW(bLinkPicDow) 

rlf (Records In subselectlon([lndex]Pictures)«1) 
LOAD LINKED RECORD([lndex]Pictures'Name) 
vLinkPic>[Pics]Pic 

Else 

vLinkPioMTPic 

L End 

Else 

ButlState (1 ;bLinkPicllp) 

ButtState (1 ;bLinkPicDow) 

REDRAW(bLinkPicUp) 

REDRAW(bLinkPicDow) 

LOAD LINKED RECORD([lndex]Pictures'Name) 
vLinkPic>[Pics]Pic 
L End If 

vLink:-[Main]Related'Term 
vPrevLink:-"" 
vNextLink:-” 
vGo>"Go to ~+vLink+"' 

Else 

ButtStata (0;bGo) 

REDRAW(bGo) 

ButtState (0;bLinkPicUp) 

ButtState (0;bLinkPicDow) 

REDRAW(bLinkPicUp) 

REDRAW(bLinkPicDow) 

vLink:-- 

vPrevLink:-” 

vNextLink:-” 

vGo>” 

‘■End If 
Else 

ButtState (1 ;bLinkUp) 

ButtState (1;bLinkDow) 

REDRAW (bLinkUp) 

REDRAW(bLinkDow) 

ButtState (1;bGo) 

REDRAW(bGo) 

SEARCH BY INDEX([lndex]Term-Related'Term) 

ALL SUBRECORDS([lndex]Pictures) 

-If (Records in subselectlon([lndex]Pictures)<2) 
ButtState (0;bLinkPicllp) 

ButtState (0;bLinkPicDow) 

REDRAW(bLinkPicUp) 

REDRAW(bLinkPicDow) 

rlf (Records In subselection([lndex]Pictures)-1) 
LOAD LINKED RECORD((lndex]Pictures Name) 
vLinkPic:-[Pics]Pic 
Else 

vLinkPioMTPic 

L End If 
Else 

ButtState (1;bLinkPicUp) 

ButtState (1;bLinkPicDow) 

REDRAW(bLinkPicUp) 

REDRAW(bLinkPicDow) 

LOAD LINKED RECORD([lndex]Pictures’Name) 
vLinkPic:-[Pics]Pic 
L End If 

vLink>[Main]Related’Term 

NEXT SUBRECORD([Main]Related) 
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t if (End subselectlon([Main]Related)) 

FIRST SUBRECORD([Main]Related) 

| End If 

vNextLink>[Main]Related’Term 
PREVIOUS SUBRECORD([Main]Related) 
rlf (Before subselectlon([Main]Related)) 

LAST SUBRECORD([Main]Related) 

L End If 

PREVIOUS SUBRECORD([Main]Related) 
rlf (Before eubselectlon([Maln]Related)) 

| LAST SUBRECORD((Main]Related) 

L End If 

vPrevLink>[Main]Related'Term 
NEXT SUBRECORD([Main]Related) 

[ If (End subselectlon([Main]Related)) 

FIRST SUBRECORD([Main]Related) 

End If 

vGo:-"Go to ”+vLink+"'" 

L End If 
L End If 

' display broader terms 
-If ((bBro-1 )&{RecStr#'Broader")) 

RecStr>"Broader" 

vLinkPioMTPic 

rlf (Records In subselectlon([Main]Broader)<2) 

ButtStata (0;bLinkUp) 

ButtStata (OjbLinkDow) 

RED RAW(bLinkUp) 

REDRAW(bLinkDow) 

rlf (Records In subselectlon([Main]Broader)«1) 

ButtS fata (1;bGo) 

REDRAW(bGo) 

SEARCH BY INDEX([lndex]Term«BroaderTerm) 

ALL SUBRECORDS([lndex]Pictures) 
rlf (Records In subselectlon([lndex]Pictures)<2) 
ButtStata (0;bLinkPicUp) 

ButtStata (0;bLinkPicDow) 

REDRAW(bLinkPicUp) 

REDRAW(bLinkPicDow) 

rlf (Records In subselection([lndex]Pictures)-1) 
LOAD LINKED RECORD([lndex]Pictures'Name) 
vLinkPic>[Pics]Pic 
Else 

vLinkPioMTPic 
L End If 
Else 

ButtStata (1 ;bLinkPicUp) 

ButtStata (1 ;bLinkPicDow) 

REDRAW(bLinkPicUp) 

REDRAW(bLinkPicDow) 

LOAD LINKED RECORD([lndex]Pictures'Name) 
vLinkPic:«[Pics]Pic 
L End If 

vLink:-[Main] BroaderTerm 
vPrevLink:-" 
vNextLink:-” 
vGo:-*Go to “+vLink+“" 

Else 

ButtStata (0;bGo) 

REDRAW(bGo) 

ButtStata (0;bLinkPicUp) 
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1 ButtState (0;blinkPicDow) 

REDRAW(bLinkPicUp) 

REDRAW(bLinkPicDow) 

vLink>~ 

vPrevLink:-"* 

vNextLink:-*" 

vGo>” 

L End if 
Else 

ButtState (1;bLinkUp) 

ButtState (1;bLinkDow) 

REDRAW(bLinkUp) 

REDRAW(bLinkDow) 

ButtState (1;bGo) 

REDRAW(bGo) 

SEARCH BY INDEX([lndex]Term-Broader'Term) 

ALL SUBRECORDS([lndex]Pictures) 
rlf (Records in subselection([lndex]Pictures)<2) 
ButtState (0;bLinkPicUp) 

ButtState (0;bLinkPicDow) 

REDRAW(bLinkPicUp) 

REDRAW(bLinkPicDow) 

rlf (Records In subselection([lndex]Pictures)«1) 
LOAD LINKED RECORDdlndexlPictures'Name) 
vLinkPic:=[Pics]Pic 

Else 

vLinkPioMTPic 

L End if 
Else 

ButtState (1 ;bLinkPicUp) 

ButtState (1 ;bLinkPicDow) 

REDRAW(bLinkPicUp) 

REDRAW(bLinkPicDow) 

LOAD LINKED RECORDtflndexJPictures'Name) 
vLinkPic:»[Pics]Pic 
L End If 

vLink>[Main]BroaderTerm 
NEXT SUBRECORD([Main]Broader) 
rlf (End subselection([Main]Broader)) 

FIRST SUBRECORD([Main]8roader) 

L End If 

vNextLink>[Main]BroaderTerm 
PREVIOUS SUBRECORD([Main)Broader) 

[ If (Before subselectlon([Main]Broader)) 

LAST SUBRECORD([Main]Broader) 

End If 

PREVIOUS SUBRECORD([Main]Broader) 
rlf (Before subselection([Main]Broader)) 

LAST SUBRECORD([Main]Broader) 

L End If 

vPrevLink>[Main]BroaderTerm 
NEXT SUBRECORD([Main]Broader) 

[ If (End subselectlon([Main]Broader)) 

FIRST SUBRECORD([Main]Broader) 

End if 

vGoVGo to "+vLink+”* 

L End If 
L End If 

' display narrower terms 
rlf ((bNar-1 )&(RecStr#’ Narrower*)) 

RecStri-’Narrower* 


Wednesday. July 5, 1 989 


Layout procedure: Mainout.[Maln] 


9 


vLinkPioMTPic 

‘If (Records In subselectlon([Main]Narrower)<2) 
ButtState (0;bLinkUp) 

ButtStata (0;bLinkDow) 

REDRAW(bLinkUp) 

REDRAW(bLinkDow) 

"If (Records In subselectlon([Main]Narrower)»1) 
ButtState (1;bGo) 

REDRAW(bGo) 

SEARCH BY INDEX([lndex]Term«Narrower'Term) 

ALL SUBRECORDS((lndex]Pictures) 
rlf (Records In subselectlon([lndex]Pictures)<2) 
ButtStata (0;bLinkPicUp) 

ButtStata (0;bLinkPicDow) 

REDRAW(bLinkPicUp) 

REDRAW(bLinkPicDow) 

rlf (Records In subselectlon([lndex]Pictures)-1) 
LOAD LINKED RECORD([lndex]Pictures'Name) 
vLinkPic>[Pics]Pic 
Else 

vLinkPioMTPic 
L End If 
Else 

ButtStata (l .bLinkPicUp) 

ButtStata (1;bLinkPicDow) 

REDRAW(bLinkPicUp) 

REDRAW(bLinkPicDow) 

LOAD LINKED RECORD([lndex]Pictures'Name) 
vLinkPic:»[Pics]Pic 
L End If 

vLink>[Main]NarrowerTerm 
vPrevLink:-” 
vNextLink:-’* 
vGo:-’Go to “+vLink+”’ 

Else 

ButtStata (0;bGo) 

REDRAW(bGo) 

ButtStata (0;bLinkPicllp) 

ButtStata (O.bLinkPicDow) 

REDRAW(bLinkPicllp) 

REDRAW(bLinkPicDow) 

vLink:-” 

vPrevLink:-” 

vNextLink:-*’ 

vGo:-** 

L End If 
Else 

ButtStata (1 ;bLinkllp) 

ButtStata (1;bLinkDow) 

REDRAW(bLinkUp) 

REDRAW(bLinkDow) 

ButtStata (1;bGo) 

REDRAW(bGo) 

SEARCH BY INDEX([lndex]Term-Narrower’Term) 

ALL SUBRECORDS([lndex]Pictures) 

"If (Records In subselection([lndex]Pictures)<2) 
ButtStata (0;bLinkPicUp) 

ButtStata (0;bLinkPicDow) 

REDRAW(bLinkPicUp) 

REDRAW(bLinkPicDow) 

pf (Records In subselectlon([lndex]Pictures)-1) 
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j LOAD LINKED RECORD([lndex]Pictures’Name) 
vLinkPic:-[Pics]Pic 

Else 

vLinkPic:=MTPic 

L End If 
Else 

ButtStata (1 ;bLinkPicllp) 

ButtState (1 ;bLinkPicDow) 

REDRAW(blinkPicUp) 

REDRAW(bLinkPicDow) 

LOAD LINKED RECORD([lndex]Pictures'Name) 
vLinkPic:=[Pics]Pic 

| *~End If 

vLink:-[Main]NarrowerTerm 

NEXT SUBRECORD([Main]Narrower) 

[ If (End subselectlon([Main]Narrower)) 

FIRST SUBRECORD([Main]Narrower) 

End If 

vNextLink>[Main]NarrowerTerm 
PREVIOUS SUBRECORD((Main]Narrower) 
rlf (Before subselectlon([Main]Narrower)) 

LAST SUBRECORD([Main]Narrower) 

L End If 

PREVIOUS SUBRECORD([Main]Narrower) 

[ If (Before subselectlon([Main]Narrower)) 

LAST SUBRECORD([Main]Narrower) 

End If 

vPrevLink>[Main]NarrowerTerm 
NEXT SUBRECORD([Main]Narrower) 

t lf (End subselection([Main]Narrower)) 

FIRST SUBRECORD([Main]Narrower) 

End If 

vGo:-”Go to " , +vLink+”' 

L End If 
L End If 
'“End If 
rlf (Screenful) 

ValldateDIg 
‘“End if 


*"End if 
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Wednesday, July 5, 1989 Layout procedure: Termlndex.[Maln] 


' Purpose: handles the term index layout 
-If (In header) 

SET WINDOW TITLE(’Term Index") 
vTitle:=’Select a Term:’ 

L End If 
rlf (done»1) 

| CancalEntry 
L End if 
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' Purpose: handles the main term entry screen 

-If (Before) 

CREATE EMPTY SET([Pics];"PicCheck") 

CREATE EMPTY SET([lndex];’RelCheck’) 

CREATE EMPTY SET([lndex];"BroCheck") 

CREATE EMPTY SET([lndexj;"NarCheck") 
rlf (xEdit=1) 
xEdit:=0 

UNION(”OldPics";"PicCheck";"PicCheck") 

UNION('OldRelSet";’RelCheck’;"RelCheck") 

UNION("OldNarSet";"NarCheck";*NarCheck") 

UNION("OldBroSet";"BroCheck";"BroCheck") 

‘-End If 

OldMain:=[Main]Term 

SET WINDOW TITLE("Term Entry") 

‘-End if 

-If (During) 

rlf (Modifled([Main]Term)) 

[Main]Term:-Uppercase([Main]Term) 

L End If 

SORT SUBSELECTION([Main]Pictures;[Main]Pictures'Name;>) 
rlf ([MainjPictures'Name-"") 

DELETE SUBRECORD([Main]Pictures) 

ALL SUBRECORDS([Main]Pictures) 

SORT SUBSELECTION([Main]Pictures;[Main]Pictures'Name;>) 

L End If 

REDRAW([Main]Pictures) 

SORT SUBSELECTION([Main]Related;[Main]Related'Term;>) 
REDRAW([Main]Related) 

SORT SUBSELECnON([Main]Narrower;[Main]Narrower'Term;>) 
REDRAW([Main]Narrower) 

SORT SUBSELECTION ([Main]Broader;[Main]Broader'Term;>) 
REDRAW([Main]Broader) 

*~End if 

rlf (After) 

CLEAR SET('PicCheck’) 

CLEAR SET("RelCheck") 

CLEAR SET('BroCheck') 

CLEAR SET(’NarCheck’) 

L End if 

“If (bCancel-1) 

CLEAR SET("PicCheck") 

CLEAR SET("RelCheck") 

CLEAR SET("BroCheck") 

CLEAR SET(’NarCheck’) 

L End if 
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' Purpose: handles dummy layout, when called ft cancels itself 

r If (done=0) 
done>1 
L End If 
CancelEntry 
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Do Search... 
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' Purpose: handles search buffer screen 
' Calls: HandleMenu 

"If (Before) 

SET WINDOW TlTLECSearch Buffer") 
Screen:=2 
L End if 

-If (During) 

rlf (Menu selected#0) 

HandleMenu 

Else 

rlf (bAdd-1) 

ter:=Request("Enter Keyword:") 
rlf(ok-l) 

vKeysO:=vKeysO+ 1 
vKeys{vKeysO} >ter 
L End If 
L End If 
rlf (bDel-1) 
rlf (vKeys-0) 

BEEP(IO) 

Else 

$i>vKeys 

r While ($i<vKeysO) 

vKeys{$i} >vKeys{$i+ 1 } 
$i:«$i+1 
^End while 
vKeysO>vKeysO- 1 
vKeys>0 
REDRAW(vKeys) 

L End If 
L End 

rlf (bClear-1) 
vKeys0>0 
REDRAW(vKeys) 

L End 

rlf (bLoad-1) 

LoadBuffer 
L End If 
rlf (bSave»1) 

SaveBuffer 
L End if 
rlf (bSearch-1 ) 

ExecSearch 
L End if 
L End if 

t lf (Screen#2) 

ValldateDIg 
End If 
L End if 
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' Purpose: handles the results display screen 
rlf (Before) 

DISABLE BUTTON(bDum) 

L End If 
~lf (During) 
rlf (bPrint— 1 ) 

PRINT SETTINGS 
rlf (OK-1) 

$i:-1 

rWhile ($i<-vResultsO) 
vLine:«vResults{$i) 

PRINT LAYOUT([Main];"LineOuf) 
$i>$i+1 
^End while 
FORM FEED 
L End if 
L End if 
rlf (bSave-1) 

SET CHANNELS 3;”) 
rlf (ok-1 ) 

$i:.1 

rWhile ($i<»vResultsO) 

SEND PACKET(vResults{$i}+Char(1 3)) 
$i>$i+1 
*~End while 
L End If 
L End If 
L End If 
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Search Preferences 




Wednesday, July 5, 1989 


Layout procedure: Prefs.[Main] 


23 


' Purpose: handles the search prefs dialog 

-Case of 
: (Before) 
rlf (DefOp.-OR-) 
vOr:«1 
Else 
vAnd>1 
L End If 
L End case 
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' Purpose: handles the opening screen 
' Calls: HandleMenu, DoFind 

-If (Before) 

vOTitl :»"PROGRAMS" 
vOTrt2:-’FACILITIES" 
vOTit3:»"PERSONNEL" 

DISABLE BUTTON(bDum) 

SET WINDOW TITLE("Main Screen") 

L End If 

-If (During) 

rlf (Menu seiected#0) 

HandleMenu 

Else 

ReadButt (x;bPic1) 
flf(x-l) 

SEARCH BY INDEX([Main]Term=vOTit1) 
screen>1 
L End If 

ReadButt (x;bPic2) 
rlf (x-1) 

SEARCH BY INDEX([Main]Term-vOTit2) 
screen>1 
L End if 

ReadButt (x;bPic3) 
rlf (x-1) 

SEARCH BY INDEX([Main]Term-vOTit3) 
screen:-1 
L End If 

ReadButt (x;bGolnd) 
rlf (x-1) 

DoFind 
L End if 
L End if 
rlf (Screen#0) 

| ValldateDIg 
L End If 
L End If 


Wednesday, July 5, 1989 


Layout: ThesOut.[Maln] 


27 



Wednesday, July 5, 1 989 


Layout procedure: ThesOut.[Main] 


28 


' Purpose: handles the layout for printing thesaurus terms 

“Case of 

: (In header) 

rlf (Before selectlon([Main])) 
vPage>1 
Else 

vPage>vPage+1 
L End If 
: (Before) 

ALL SUBRECORDS([Main]Related) 

SORT SUBSELECTION([Main]Related;[Main]Related'Term;>) 
ALL SUBRECORDS([Main]Broader) 

SORT SUBSELECTION([Main]Broader;[Main]Broader'Term;>) 
ALL SUBRECORDS([Main]Narrower) 

SORT SUBSELECnON([Main]Narrower;[Main]Narrower'Term;>) 
‘-End case 
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THESAURUS MAINTENANCE 
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' Purpose: handles the maintenance selection screen 
' Calls: NewTerm, EditTerm, DelTerm, NewPic, EdrtPics, DelPics, LoadPIcs 


"If (Before) 

SET WINDOW TITL E ("Th e s au r u s Maintenance’) 
^■End If 

rlf (During) 

rlf (Menu selected#0) 

HandleMenu 

Else 

[ If (bNewTerm-1 ) 

NewTerm 

End If 

rlf (bEditTerm-1) 

EditTerm 
L End if 

[ If (bDelTerm-1) 

DelTerm 

End if 

rlf (bNewPic-1) 
j NewPic 
L End If 
rlf (bEditPic-1) 

I EditPics 
L End If 
rlf (bDelPic-1) 

DelPics 
L End If 

[ If (bLoadPics«1 ) 

LoadPics 
End if 
| L End If 

t lf (Screen#3) 

Vallda teDIg 
End if 
“End if 
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' Purpose: included layout for adding related terms 

rlf (Before) 

Relln>0 
L End if 

vTerm>Term 

“'If (During) 
rlf(Relln«1) 

ADD TO SET([lndex];"RelCheck") 

Relln>0 
L End if 
L End if 


Wednesday, July 5, 1989 


Layout: Ralln.lMalnl’Ralated 


34 



Wednesday, July 5, 1989 


Layout procedure: Reiln.[Maln]*Related 


35 


' Purpose: layout for entering related terms 
' Calls: TermList 

~If (Before) 
new:«0 
Relln:-1 
vOTerm>Term 
L End If 

""If (bSelect«1) 

Term:- TermList 
rlf (Term-"") 
new>0 
Else 
new>1 
L End If 
L End If 

rlf (Modlflad(Term)) 
j new:-1 
u End If 

“If ((new-1)&(bCan-0)&(Term#"")) 
new>0 

SEARCH BY INDEX([lndex]Term-Term) 
rlf (Records in selectlon([lndex])-0) 

ALERT("That term is not in the thesaurus.") 

Term:-"" 

REJECT(Term) 

Else 

CREATE EMPTY SET([lndex];"PicTemp") 

CREATE EMPTY SET([lndex];"PicTest") 

ADD TO SET([lndex];"PicTemp") 
INTERSECT10N("RelCheck";"PicTemp";"PicTest") 
rlf ((Records In set("PicTest")-1)&(Term#vOTerm)) 
ALERT([lndex]Term+" is already used with this term.") 
CLEAR SET("PicTemp") 

CLEAR SET("PicTest") 

Term:-"" 

REJECT(Term) 

Else 

Term:-[lndex]Term 
L End if 
L End if 
L End if 

rlf (bCan«1) 

| Relln:-0 
L End If 

“If (bDel-1) 

DELETE SUBRECORD([Main]Related) 

ALL SUBRECORDS([Main]Reiated) 

L End If 
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' Purpose: included layout for adding broader terms 

rlf (Before) 

Broln:*0 
L End If 

vTerm>Term 

*If (During) 
rlf (BroIn-1) 

ADD TO SET([lndex];"BroCheck") 

Broln>0 
L End If 
L End If 
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' Purpose: layout tor entering broader terms 
' Calls: TermList 

-If (Before) 
new>0 
Broln:»1 
vOTerm:-Term 

L End If 

"If (bSelect-1) 

Term: -Term List 
rlf (Term-”) 
new:-0 
Else 
new:-1 
L End If 

L End if 

rlf (Modlfled(Term)) 
new:-1 

L End If 

-If ((new-1)&(bCan-0)&(Term#~)) 
new:-0 

SEARCH BY INDEX([lndex]Term-Term) 
rlf (Records In selectlon([lndex])-0) 

ALERT("That term is not in the thesaurus.") 

Term:-” 

REJECT(Term) 

Else 

CREATE EMPTY SET([lndex];"PicTemp") 

CREATE EMPTY SET((lndex];"PicTest ; ) 

ADD TO SET([lndex];’PicTemp") 
INTERSECT10N("BroCheck";’PicTemp";*PicTest") 
rlf ((Records In set("PicTest")-1)&(Term#vOTerm)) 

ALERT([lndex]Term+" is already used with this term.") 

CLEAR SET(’PicTemp") 

CLEAR SET("PicTest") 

Term:-” 

REJECT(Term) 

Else 

INTERSECTION("NarCheck":*PicTemp";*PicTest*) 
rlf (Records In set(’PicTest’)-l) 

ALERT([lndex]Term+" is already used as a narrower term with this term.’) 
CLEAR SET(“PicTemp") 

CLEAR SET('PicTesf) 

Term:-” 

REJECT(Term) 

Else 

Term:-[lndex]Term 
L End If 
L End If 
L End If 

L End If 

rlf (bCan-1) 

Broln:-0 

L End If 

rlf (bDel-1) 

DELETE SUBRECORD([Main]Broader) 
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j ALL SUBRECORDS([Main]Broader) 
L End If 
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' Purpose: included layout for adding narrower terms 

rlf (Before) 

Narln:=0 

L End If 

vTerm:=Term 

-If (During) 
rlf (Narln=1) 

ADD TO SET([lndex];"NarCheck") 

Narln:=0 
L End if 
L End If 
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' Purpose: layout for entering narrower terms 
' Calls: TermList 

-If (Before) 
new:=0 
Narln>1 
vOTerm>Term 
L End if 

-If (bSelect-1) 

Term. -Term List 
rlf (Term--*) 
new>0 

Else 
new:=1 
L End if 
L End If 

rlf (Modlfled(Term)) 

] new:«1 
L End if 

rlf ((new-1)&(bCan»0)&(Term#"")) 
new>0 

SEARCH BY INDEX([lndex]Term-Term) 
rlf (Records in seiectlon((lndex])-0) 

ALERT(*That term is not in the thesaurus.") 

Term:-"" 

REJECT(Term) 

Else 

CREATE EMPTY SET([lndex];"PicTemR") 

CREATE EMPTY SET([lndex];"PicTe9t") 

ADD TO SET([lndex];"PicTemp") 
INTERSECTION("NarCheck";’PicTemp";"PicTest") 
rlf ((Records in set("PicTest")«1)&(Term#vOTerm)) 

ALERT([lndex]Term+" is already used with this term.") 

CLEAR SET("PicTemp") 

CLEAR SET(’PicTest’) 

Term:-"" 

REJECT(Term) 

Else 

INTERSECTION("BroCheck";"PicTemp";"PicTest") 
rlf (Records In set("PicTest")-1) 

ALERT([lndex]Term+" is already used as a broader term with this term.’) 
CLEAR SET(’PicTemp’) 

CLEAR SET("PicTest") 

Term:-"" 

REJECT(Term) 

Else 

Term:-(lndex)Term 
L End if 
L End 
L End if 
L End if 

rlf (bCan-1) 

Narln:»0 
L End If 

rlf (bDel-1) 

DELETE SUBRECORD([Main]Narrower) 
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j ALL SllBRECORDS([Main]Narrower) 
L End If 
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' Purpose: included layout for adding pictures 

rlf (Before) 

Picln>0 
L End If 

vName:=Name 

-'If (During) 
rlf (Picln-1) 

ADD TO SET([Pics];"PicCheck") 
Picln>0 

L End If 
L End If 
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' Purpose: layout for entering new pictures 
' Calls: PicList 

"If (Before) 
new:»0 
Picln>1 
vOTerm>Name 

LOAD LINKED RECORD(Name) 

vTermPic:»[Pics]Pic 
L End If 

"If (bSelect-1) 

[MainJPictures'Namer-PAcL/sf 
LOAD LINKED RECORD(Name) 
rlf ((Pics]Name- ,,,, ) 
new:-0 
Else 
new:«1 
L End If 
L End If 

rlf (Modlfled(Name)) 
new:-1 
L End If 

“If ((new«1)&(bCan»0)&(Name#’ m )) 
new>0 

LOAD LINKED RECORD([Main]Pictures’Name;[Pics]Name) 
rlf (([PicslName-n&^MainlPictures'Name#’”)) 

ALERT("That picture is not in the database.") 

Name:-"" 

vlermPio*" - 

REJECT(Name) 

Else 

CREATE EMPTY SET([Pics];"PicTemp") 

CREATE EMPTY SET([Pics];"PicTest") 

ADD TO SET([Pics];"PicTemp") 
INTERSECTION("PicCheck";"PicTemp";’PicTest") 
rlf ((Records In set("PicTest")«1)&(Name#vOTerm)) 
ALERT(That picture is already used with this term.") 
CLEAR SET("PicTemp") 

CLEAR SET("PicTest") 

Name:*" 

REJECT(Name) 

Else 

[Main]Pictures , Name>[Pics]Name 
vTermPic>[Pics]Pic 
L End If 
L End If 
L End If 

rlf (bCan-1) 

Picln>0 
L End if 

"If (bDel-1) 

DELETE SUBRECORD([Main]Pictures) 

ALL SUBRECORDS([Main]Pictures) 

L End if 
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' Purpose: handles layout for picture list 

“If (Before) 
rlf (xPicAII=1) 

DISABLE BUTTON(bMod) 

Else 

ENABLE BUTTON(bMod) 

L End if 
L End If 
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' Purpose: handles dummy layout, validates itself when called 

Done:*1 

validateentry 
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’ Purpose: handles layout for adding pictures 

[ If (In header) 

SET WINDOW TlTLE("Picture List”) 

End If 
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' Purpose: handles layout for picture index 
"If (In header) 

SET WINDOW TITLECPicture Index") 
vTitler-’Select a picture:" 
u End If 
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' Purpose: handles layout for description entry screen 
' Calls: ShowKeys 

"If (Before) 

SET WINDOW TITLEf Document Entry") 

DISABLE BUTTON(bDum) 

rlf (xNewDoc-0) 

ALL SUBRECORDS([Docs]Key words) 
ct:=Records in subselectlon([Docs]Keywords) 
ind>1 

vTermKeysO:«ct 
r While (ind<»ct) 

vTermKeys{ind}>[Docs]KeywordsTerm 
NEXT SUBRECORD([Docs]Keywords) 
ind:=ind+1 
‘‘End while 
Else 
ind>1 

vTermKeysO>vKeysO 
r While (ind<-vKeysO) 

vTermKeys{ind}>§("vKeys’+Strlng(ind)) 
ind>ind+1 
'“End while 
L End If 
L End If 
-If (During) 
rlf(bKeys-l) 
j ShowKeys 
L End If 
rlf (bPrint-1) 
bPrint>0 

PRINT SETTINGS 

rlf(OK-l) 

PRINT LAYOUT([Docs];"DocPrint") 

FORM FEED 
L End 
L End If 
L End if 
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' Purpose: handles layout for document list 

[ If (In header) 

SET WINDOW TITLE("Description Index”) 
End if 
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' Purpose: handles layout for keyword layout 

-If (Before) 

Paste:=0 

vTermKeys>0 

ovtk>0 

ButtState (0;bPaste) 

REDRAW(bPaste) 

ButtState (0;bDelete) 

REDRAW(bDelete) 

DISABLE BUTTON(bDum) 

L End if 

-If (During) 

' import terms from buffer 
ReadButt (x;blmport) 

rif (x=i) 

$i>1 

rWfiile ($i<-vKeysO) 

SEARCH SUBRECORDS(Keywords;[Docs]Keywords’Term-vKeys($i}) 
rlf (Records In subselection(Keywords)-O) 

CREATE SUBRECORD(Keywords) 

Keywords’Term>vKeys{$i} 

L End If 
$i>$i+1 
‘-End while 

ALL SUBRECORDS(Key words) 
ct:-Records in subselectlon(Keywords) 

$i:.1 

vTermKeysO:»ct 
r While ($i<-ct) 

vTermKeys{$i}:«KeywordsTerm 
NEXT SUBRECORD(Keywords) 

$i:=$i+1 
L End while 
REDRAW (vTerm Keys) 

L End If 

' export terms to buffer 
ReadButt (x;bExport) 
rlf(x-l) 

ALL SUBRECORDS(Key words) 
vKeysOr-Records In subselectlon(Keywords) 

$i>1 

r While ($i<-vKeysO) 

vKeys{$i}:«Keywords'Term 
NEXT SUBRECORD(Keywords) 

$i:»$i+1 
‘-End while 

ALERT("Keywords exported to buufer.’) 

L End If 

ReadButt (x;bOK) 
rif (x-D 
I ValldateDlg 
L End If 

' paste keyword 
ReadButt (x;bPaste) 

rif (x-i) 

Paste>1 

ValldateDlg 

L End If 

' delete keyword 
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ReadButt (x;bDelete) 
rlf(x-l) 

ALL SUBRECORDS(Key words) 

SEARCH SUBRECORDS(Keywords;[Docs]Keywords'Term»vTermKeys{vTermKeys} 
DELETE SUBRECORD(Keywords) 

$i>vTermKeys 
rWhlle ($i<vTermKeysO) 

vTermKeys{$i):«vTermKeys{$i+1} 

$i.»$i+1 
^End while 

vT ermKey sO :»vT erm Key sO- 1 

vTermKeys>0 

REDRAW(vTermKeys) 

L End If 

rlf (vTermKeys#0) 

ButtState (1;bPaste) 

REDRAW(bPaste) 

ButtState (1 ;bDelete) 

REDRAW(bDelete) 

Else 

ButtStata (0;bDelete) 

REDRAW(bDelete) 

ButtStata (0;bPaste) 

REDRAW(bPaste) 

L End If 
L End If 
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' Purpose: handles dummy layout, validates itself when called 
ValldataEntry 
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' Purpose: handles layout description maintenance selection 
' Calls: HandelMenu, NewDoc, DocList, DumpDocs 

rlf (Before) 

SET WINDOW TITLE(’Description Maintenance") 

L End if 

"If (During) 
rlf (Menu selected#0) 

HandleMenu 

Else 

[ If (bNewDesc»1) 

NewDoc 

i End If 

rlf (bEditDesc»1) 

| DocList 
L End If 

[ If (bExpDesc-1) 

DumpDocs 

End If 
L End If 
rlf (Screen#4) 

ValidateDIg 
L End If 
L End If 


Wednesday, July 5, 1989 


Layout: DocPrlnt.fDocs] 


78 


Photo ID: 
Format: 
Date: 
Status: 

Keywords: 


Description: 




Wednesday, July 5, 1 989 


Layout procedure: DocPrlnt.[Docs] 


79 


' Purpose: handles layout for printing description entries 
~lf (Before) 

ALL SUBRECORDS(Key words) 

FIRST SUBRECORD(Keywords) 
vKeyPrint:-Keywords'Term 
rWhlle (Not(End subselectlon(Keywords))) 

NEXT SUBRECORD(Keywords) 
rlf (Not(End subselectlon(Keywords))) 
vKeyPrint>vKeyPrint+", "+KeywordsTerm 
L End If 
L End while 
L End If 
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' Purpose: handles layout for term index 

-If (Before) 
rlf (xDMod=1) 

DISABLE BUTTON(bMod) 

Else 

ENABLE BUTTON(bMod) 

’"End If 
L End if 
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' Purpose: handles dummy layout, validates itself when called 

Done>1 

VaHdateEntry 
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Name 


Alpha 20 


Indexed; Enterable; Modifiable 
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Purpose: adds a narrower link between the current term and the input parameter 
' Parameters: $1 - Name of term to link to 

SEARCH BY INDEX([Main]Term-[lndex]Term) 

CREATE SUBRECORD([Main]Narrower) 

[Main]NarrowerTerm>$1 
SAVE RECORD([Main]) 
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' Purpose: adds a broader link between the current term and the input parameter 
' Parameters: $1 - Name of term to link to 

SEARCH BY INDEX([Main^Term-[lndex]Term) 

CREATE SUBRECORD([Main]Broader) 

[Main]BroaderTerm>$1 
SAVE RECORD([Main]) 
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' Purpose: adds a picture to a term 

SEARCH BY INDEX([Pics]Name«[Main]Pictures'Name) 
CREATE EMPTY SET([Pics];-NewPics") 

ADD TO SET([Pic$];*NewPics") 

' use a set to check for duplicates 

INTERSECTION^ResuItVNewPicsVOIdPics") 

"If (Records In setfOldPics")>0) 

CREATE SUBRECORD([lndex]Pictures) 
[IndexJPictures’Namei-tMainJPictures'Name 
ACTIVATE L!NK([lndex]Pictures’Name) 

L End If 

CLEAR SET("NewPics") 
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' Purpose: adds a related link between the current term and the input parameter 
• Parameters: $1 - Name of term to link to 

SEARCH BY INDEX([Main]Term-[lndex]Term) 

CREATE SUBRECORD([Main]Related) 

[Main]RelatedTerm>$1 
SAVE RECORD([Main]) 
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' Purpose: breaks up a multi-word term into a boolean formula with AND between 
words 

' Parameters: $1 - term to break up 
' Returns: $0 - boolean formula 

~lf (Positlon("(’;$1 )#0) 

str>Substrlng($1 ;1 ;Posltlon("(";$1 )-2) 

Else 
str>$1 
L End If 

x:»Position(" ’;str) 

-If (x-0) 

$0>str 

Else 

temp:-"(" 

rWhlle ((x<Length(str))&(x#0)) 

temp:-temp+Substrlng(str;1;x-1)+' AND * 
str:=Substrlng(str;x+1 ;300) 
x>Posltlon(’ *;str) 

*"End while 
$0>temp+str+’)' 

L End If 
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' Purpose: copies a picture from the main file to the index file 

CREATE SUBRECORD([lndex]Pictures) 
[lndex]Pictures’Name:-[Main]Pictures'Name 
ACTIVATE LINK([lndex]Pictures’Name) 
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' Purpose: deletes a braoder term from a main term 
' Parameters: $1 - broader term to delete 

SEARCH BY INDEX([Main]Term-[lndex]Term) 
dum>$1 

SEARCH SUBRECORDS([Main]Narrower;[Main]NarrowerTerm*dum) 
DELETE SUBRECORD([Main]Narrower) 

SAVE RECORD([Main]) 
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' Purpose: deletes a narrower term from a main term 
' Parameters: $1 - narrower term to delete 

SEARCH BY INDEX([Main]Term-[lndex]Term) 
dum:=$1 

SEARCH SUBRECORDS([Main]Broader;[Main]Broader’Term-dum) 
DELETE SUBRECORD([Main]Broader) 

SAVE RECORD([Main]) 


Wednesday, July 5, 1989 


Procedure: DelPIc 


' Purpose: deletes a picture from the index 

SEARCH SUBRECORDS^Indexpictures^IndexJPictures’Name-tPicslName) 
DELETE SUBRECORD([lndex]Pictures) 
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' Purpose: deletes a picture from the thesaurus 
' Calls: DisableAll, Enable All 


' ask for picture to delete 
DEFAULT FILE([Pics]) 

DisableAll 

INPUT LAYOUT(’PicDum') 

EdTerm:-" 

$term:=Request("Enter Picture Prefix To Search (OK for all):') 
rlf (ok=1) 

SEARCH BY INDEX([Pics]Name-$term+’@') 
rlf (Records in selectlon([Pics])-0) 

/VLERT("No pictures were found that match the prefix H ’+$term+’\") 

Else 

OUTPUT LAYOUT('PicList') 

SORT BY INDEX([Pics]Name;>) 
rlf (OK-1) 

h1:=Screen helght/2+10 
w1:=Screen width/2 
h2:=1 18 

w2:-200 „ 

OPEN WINDOW(w1-w2;h1-h2;w1+w2;h1+h2;4;"Picture List ) 

Done>0 

DISPLAY SELECTION([Pics];*) 
rWhlle ((bOK-0)&(bCan-0)) 

$term:=Request("Enter Picture Prefix To Search (OK for all): ) 
rlf (ok-1 ) 

SEARCH BY INDEX([Pics]Name-$term+'@') 
rlf (Records selectlon([Pics])-0) 

ALERTfNo pictures were found that match the prefix ’"+$term+“.") 
bCan:=1 

Else 

SORT BY INDEX([Pics]Name;>) 

rlf (OK-1) 

Done:-0 

DISPLAY SELECTION ([Pics];*) 

Else 
bCan>1 
L End If 
L End If 
Else 
bCan:-1 
L End if 
““End while 
CLOSE WINDOW 
rlf ((bOK-1)) 

USE SET('UserSet') 

EdTerm >[Pics]Name 
Else 

EdTerm:-" 

L End if 
L End If 
L End If 
L End if 


' If a picture was selected, delete it 
•If (EdTerm#") 

CONFIRMfDelete picture '+EdTerm+"?") 
rlf (OK-1) 

SEARCH BY INDEX([lndex]Pictures'Name-EdTerm) 
|- While (Not(End selectlon([lndex]))) 
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' delete the picture from any records in the index file 
SEARCH SUBRECORDS([lndex]Pictures;[lndex]Pictures'Name-EdTerm) 
DELETE SUBRECORD([lndex]Pictures) 

SEARCH BY INDEX([Main]Term-[lndex]Term) 

* delete the picture from any records in the main file 
SEARCH SUBRECORDS([Main]Pictures;(Main]Pictures'Name-EdTerm) 
DELETE SUBRECORD([Main]Pictures) 

SAVE RECORD([Main]) 

SAVE RECORD([lndex]) 

NEXT RECORD([lndex]) 

^End while 

DELETE RECORD([Pics]) 

L End if 
L End if 

EnabloAII 
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' Purpose: deletes a related term from a main term 
' Parameters: $1 - related term to delete 

SEARCH BY INDEX([Main]Term«[lndex]Term) 
dum:=$1 

SEARCH SUBRECORDS([Main]Related;[Main]Related'Term«dum) 

DELETE SUBRECORD([Main]Related) 

SAVE RECORD([Main]) 
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' Purpose: deletes a term from the thesaurus 

' Calls: DisableAll, EnableAll, MatchOldRel, MatchOldBro, MatchOldNar, DelRel 
DelBro, OelNar 

' ask for term to delete 
DEFAULT FILE([lndex]) 

DisableAll 

INPUT LAYOUT(TermDum’) 

EdTerm:-"" 

$te rm := Request("E nte r Term Prefix To Search (OK for all):’) 

-If (ok-1) 

SEARCH BY INDEX([lndex]Term»$term+*@*) 
rlf (Records In selectlon([lndex])-0) 

ALERT("No terms were found that match the prefix n, +$term+’’ *) 

Else 

OUTPUT LAYOUT(’T erm List") 

SORT SELECTION([lndex]Term;>) 
rlf (OK-1) 

h1:-Screen helght/2+10 
w1:-Screen wldth/2 
h2:-118 
w2>200 

OPEN WINDOW(w1-w2;h1-h2;w1+w2;h1+h2;4;’Term List") 

Done:-0 

DISPLAY SELECTION([lndex];*) 
r While ((bOK-0)&(bCan-0)) 

$term:-RequestCEnter Term Prefix To Search (OK for all):") 
flf (ok-1) 

SEARCH BY INDEX([lndex]Term»$term+’@") 
rlf (Records selection([lndex])-0) 

ALERT ("No terms were found that match the prefix '"+$term+"'.") 
bCan:-1 

Else 

SORT SELECTION([lndex]Term;>) 

rlf (OK-1) 

Done:-0 

DISPLAY SELECTION([lndex];*) 

Else 
bCan:-1 
L End If 
L End If 
Else 
bCan:-1 
L End if 
^End while 
CLOSE WINDOW 
rlf ((bOK-1)) 

USE SET("UserSet") 

EdTerm:»[lndex]Term 

Else 

EdTerm:-” 

L End If 
L End If 
L End If 
L End If 

' if a term was selected, delete it 
'If (EdTerm#**) 

DEFAULT FILE([Main]) 

SEARCH BY INDEX([Main]Term-EdTerm) 

ALL SUBRECORDS([Main]Related) 
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' create sets to store linking terms for deletion 

CREATE EMPTY SET([lndex];"OldRelSef) 

APPLY TO SUBSELECT10N([Main]Related;MafchO/dfle/ ) 
ALL SUBRECORDS([Main]Broader) 

CREATE EMPTY SET([lndex];"OldBroSet’) 

APPLY TO SUBSELECTION([Main]Broader;MarchOWBro ) 
ALL SUBRECORDS([Main]Narrower) 

CREATE EMPTY SET([lndex];"OldNarSet") 

APPLY TO SUBSELECTION([Main]Narrower;MafchO/d/Var ) 
ALL SUBRECORDS([Main]Pictures) 

CONFIRM(’Delete "+[Main]T erm+"?") 
rlf (OK-1) 

temp:=[Main]Term 

' delete related links 
ALL SUBRECORDS([Main]Related) 

USE SET(’OldRelSet’) 

MESSAGES OFF 

APPLY TO SELECTION([lndex];De/fle/ (temp)) 
MESSAGES ON 

' delete broader links 

SEARCH BY INDEX([Main]Term«temp) 

ALL SUBRECORDS([Main]Broader) 

USE SET(’OldBroSef) 

MESSAGES OFF 

APPLY TO SELECT10N([lndex];De/Bro (temp)) 
MESSAGES ON 

’ delete narrower links 
SEARCH BY INDEX([Main]Term«temp) 

ALL SUBRECORDS([Main]Narrower) 

USE SET("OldNarSet") 

MESSAGES OFF 

APPLY TO SELECT!ON([lndex];De//Var (temp)) 
MESSAGES ON 

’ delete the term from the index file and the main file 
SEARCH BY INDEX([lndex]Term-temp) 

DELETE RECORD([lndex]) 

SEARCH BY INDEX([Main]Term-temp) 

DELETE RECORD([Main]) 

*-End if 

CLEAR SET('OldRelSet’) 

CLEAR SET("OldBroSet") 

CLEAR SET(’OldNarSet’) 

’“End if 

EnableAll 
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' Purpose: disables all of the menus 

DISABLE ITEM(1;0) 

DISABLE ITEM(2;0) 

DISABLE ITEM(3;0) 

DISABLE ITEM(4;0) 

DISABLE ITEM(5;0) 
UpdateMenuBar 
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' Purpose: displays the about box 
' Calls: DisableAll, EnableAll 

h1>Screen height/2+10 

w1>Screen width/2 

h2>100 

w2:*201 

disabfeAll 

OPEN WINDOW(w1 -w2;h1 -h2;w1 +w2;h1+h2;3) 
DIALOG ([Main] ;"About") 

CLOSE WINDOW 
enableAll 
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' Purpose: displays the search buffer screen 
DIALOG([Main];"Buffer") 
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’ Purpose: displays a list of descriptions for editing 
' Calls: DisableAll, EnableAll 

DEFAULT FILE([Docs]) 

DisableAll 

INPUT LAYOUT("DocMain") 

vTitle:=’Select a description:” 
xNewDoc:=0 
SEARCH 
~lf (ok=1) 

rlf (Records in selectlon([Docs])-0) 

ALERT(’No descriptions were found.") 

Else 

OUTPUT LAYOUT("DocList") 

SORT SELECTION([Docs]N umber ;>) 
rlf(OK-l) 

Done>0 

MODIFY SELECTION([Docs];*) 
r While ((bOK-O)) 

SEARCH 
rlf (ok-1 ) 

rlf (Records in selection([Docs])«0) 
ALERT(”No descriptions were found.’) 
bCan:-1 

Else 

SORT SELECTION([Docs]Number;>) 
rlf(OK-l) 

Done>0 

MODIFY SELECTION ([Docs];*) 
Else 
bCan:=1 
*~End if 
L End if 
Else 
bCan:=1 
’-End if 
‘“End while 
rlf ((bOK-1)) 

‘“End If 
L End 
L End If 
L End if 
EnableAll 
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' Purpose: searches for terms and displays them 
' Calls: DisableAll, EnableAll, LoadTerm 


DEFAULT FILE([Main]) 

DisableAll 

INPUT LAYOUT(’Dummy’) 

$term>Request("Enter Term Prefix To Search (OK for all):’) 
lf(ok-1) 

' search for terms 

SEARCH BY INDEX([Main]Term-$term+’@’) 
plf (Records In selectlon([Main])-0) 

ALERT("No terms were found that match the prefix “+$term+”.’) 

Elsa 

plf (Records In selectlon([Main])-1) 

' one matching term found so display it 
If (screen-1) 

LoadTerm 

Elsa 

Scree n>1 
‘“End If 
Elsa 

' show the list of terms 
OUTPUT LAYOUT(Termlndex’) 

SORT SELECTION([Main]Term;>) 

If (OK-1) 

Done>0 

DISPLAY SELECTION([Main]) 
p While ((bGo-0)&(bCan-0)4(Done-0)) 

' user wants to modify search 

$term:-Raquast("Enter Term Prefix To Search (OK for all):’) 

If (ok-1) 

SEARCH BY INDEX([Main]Term-$term+’@’) 

If (Records In salactlon([Main])-0) 

ALERT("No terms were found that match the prefix "+$term+”") 
bCan:»1 
Elsa 

plf (Records In selectlon([Main])-1) 

plf (screen-1) 

LoadTerm 

Elsa 

Screen:-1 
u End if 
Elsa 

SORT SELECTION([Main]Term;>) 
plf (OK-1) 

Done>0 

DISPLAY SELECTION([Main]) 

Elsa 
bCan:-1 
End if 
*-End If 
End If 
Elsa 
bCan:-1 
•“End If 
End while 

plf ((bGo-1)|(Done-1)) 

' user has selected a term from the list and wants to display it 
USE SET(’UserSet’) 

If (screen-1) 

LoadTerm 


-I 
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Else 

Screen:* 
u End If 
End if 
'-End if 
*-End if 
End if 
u End if 


EnableAII 
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' Purpose: displays a dialog to chand the default boolean operator 
' Calls: DisableAll, EnableAll 

h1:=Screen height/2+10 

w1>Screen wldth/2 

h2>75 

w 2:-100 

DisableAll 

OPEN WINDOW(w1 -w2;h1 -h2;w1 +w2;h1 +h2;1 ) 

DIALOG ([Main] ;"Prefs') 

-If (ok-1) 
rlf (vAnd»1) 

DefOp:-’AND’ 

Else 

DefOp:-*OR" 

L End If 
L End if 

CLOSE WINDOW 

EnableAll 
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' Purpose: exits the thesaurus to the Finder 
Quit4D (3) 
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' Purpose: exports descriptions from the system to a file 
' Calls: DisableAll, EnableAll 

' select the descriptions to export 
DEFAULT FILE([Docs]) 

INPUT LAYOUT(’DocDum’) 

DisableAll 

vTitle >*Descript ions :* 

SEARCH 
-If (ok— 1 ) 

r If (Records In selectlon((Docs])-0) 

ALERT(’No descriptions were found.’) 

Else 

OUTPUT LAYOUT(’DocList’) 

SORT SELECTION((Docs]Number;>) 
rif (OK-i ) 

DISPLAY SELECTION([Docs];‘) 
r While ((bOK-O)) 

SEARCH 

rlf (ok-1 ) 

r If (Records In selectlon([Docs])-0) 
ALERTfNo descriptions were found.’) 
bCan>1 
Else 

SORT SELECTION([Docs]Number;>) 
rlf (OK-1) 

Done:-0 

DISPLAY SELECTION([Docs];*) 
Else 
bCan:*1 
L End if 
L End If 
Else 
bCan:-1 
L End If 
L End while 
rlf ((bOK-l)) 

L End If 
L End if 
L End if 
L End If 


' save the descriptions in a file 
-If (bOK-1) 

CONFlRM(*Ex porting these descriptions will remove them from the system.’) 
rlf (ok-1) 

SET CHANNELS 2;”) 
rlf (OK-l) 

MESSAGE(*Exporting Descriptions...*) 

FIRST RECORD([Docs]) 
rWhlle (Not(End selectlon([Docs]))) 

SEND PACKET(“-NUMBER-"+Char(13)) 

SEND PACKET([Docs]Number+Char(13)) 

SEND PACKET("-FORMAT-"+Char(13)) 

SEND PACKET([Docs]Format+Char(13)) 

SEND PACKET("-DATE-*+Char(13)) 

SEND PACKET(Strlng(Month of([Docs]Date))+V+Strlng(Day of([Docs]Date))+V+Strlng(Year of((Docs]Date, 
SEND PACKET(’-KEYWORDS-’+Char(1 3)) 

ALL SUBRECORDS((Docs]Keywords) 
p While (Not(End subselectlon([Docs]Keywords))) 
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SEND PACKET([Docs]KeywordsTerm+’ ") 

NEXT SUBRECORD([Docs]Keywords) 

■“End while 

SEND PACKET(Char(13)) 

SEND PACKET(“-TEXT-"+Char(13)) 
[Docs]Text:«Uppercase([Docs)Text) 

Text2Array ([Docs]Text;"DocOut’;490;’monaco’;9;0) 
$i>1 

r While ($i<-DocOutO) 

SEND PACKET(DocOut{$i}+Char(13)) 

$i>$i+1 

‘"End while 

SEND PACKETf-END-’+Char(1 3)+Char(1 3)) 

NEXT RECORD([Docs]) 

*-End while 
SET CHANNELS 1) 

DELETE SELECTION([Docs]) 

L End If 
L End If 
L End if 
EnableAll 
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' Purpose: searches for pictures to be edited and edits them 
' Calls: DisableAll, EnableAll 

' search for pictures to be edited 
DEFAULT FILE([Pics]) 

INPUT LAYOUT(’PicDum’) 

DisableAll 

EdTerm:-” 

xPicAII:-0 

vTrtle:-’Edit Picture’ 

$term:«Request(’Enter Picture Prefix To Search (OK for all):") 

-If (ok-1) 

SEARCH BY INDEX([Pics]Name-$term+’@") 
rlf (Records in selectlon([Pics])-0) 

ALERT("No pictures were found that match the prefix ~+$term+”.’) 

Else 

OUTPUT LAYOUT(’PicList’) 

SORT SELECTION([Pics]Name;>) 
rlf (OK-1) 

h1:-Screen height/2+10 
w1:-Screen wldth/2 
h2:-118 
w2:-200 

OPEN WINDOW(w1-w2;h1-h2;w1+w2;h1+h2;4;’Picture List") 

Done:-0 

DISPLAY SELECTION([Pics];‘) 
r While ((bOK-0)&(bCan-0)) 

$term:-Request ("Enter Picture Prefix To Search (OK for all):’) 
rlf (ok-1) 

SEARCH BY INDEX((Pics]Name-$term+"@’) 
rlf (Records In selectlon([Pic$])-0) 

ALERT("No pictures were found that match the prefix "+$term+“.’) 
bCan:-1 

Else 

SORT SELECTION([Pics]Name;>) 
rlf (OK-1) 

Done:-0 

DISPLAY SELECTION([Pics];‘) 

Else 
bCan:-1 
L End if 
‘"End if 
Else 
bCan:-1 
L End If 
L End while 
CLOSE WINDOW 
rlf ((bOK-1)) 

USE SET(’UserSet') 

EdTerm:-[Pics]Name 

Else 

EdTerm:-” 

L End If 
L End if 
L End if 
L End if 

‘ edit the picture 
-If (EdTerm#”) 

INPUT LAYOUT(’Picln’) 

SEARCH BY INDEX([Pics]Name-EdTerm) 
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MODIFY RECORD([Pics];*) 

rlf (OK=1) 

temp:=[Pics]Name 
rlf (EdTerm#temp) 

' jf the picture was renamed, change references to it 
SEARCH BY INDEX([lndex]Pictures’Name-EdTerm) 
r While (Not(End selectlon([lndex]))) 

SEARCH SUBRECORDS([lndex]Pictures;[lndex]Pictures’Name-EdTerm) 

[lndex]Pictures’Name:«temp 

SEARCH BY INDEX([Main]Term»[lndex]Term) 

SEARCH SUBRECORDS([Main]Pictures;[Main]Pictures’Name«EdTerm) 

[Main]Pictures'Name>temp 

ACTIVATE LlNK([Main]Pictures'Name) 

ACTIVATE LINK([lndex]Pictures'Name) 

SAVE RECORD([Main]) 

SAVE RECORD([lndex]) 

NEXT RECORD([lndex]) 

‘-End while 
*~End If 
‘"End If 
L End If 
EnableAll 
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' Purpose: searches for terms and displays them for editing 
' Calls: DisableAll, EnableAll, MatchOldRel, MatchOldNar, MatchOldBro, MatchRel 
MatchBro, MatchRel, RenRel, RenBro, RenNar, DelRel, DelNar, DelBro 
AddRel, AddBro, AddNar, AddPic, MatchPics, DelPic 

' search for terms to be editied 
DEFAULT FILE([lndex]) 

DisableAll 

INPUT LAYOUT('TermDum-) 

EdTerm:-"" 

$term>Request("Enter Term Prefix To Search (OK for all):') 

-lf(ok-l) 

SEARCH BY INDEX([lndex]Term-$term+"(5>") 
rlf (Records in selectlon([lndex])-0) 

ALERT(”No terms were found that match the prefix '’+$term+"\*) 

Else 

OUTPUT LAYOUT(’TermList') 

SORT SELECTION([lndex]Term;>) 
rlf (OK-1) 

h1>Screen height/2+10 
w1>Screen width/2 
h2:-118 
w2:«200 

OPEN WINDOW(w1-w2;h1-h2;w1+w2;h1+h2;4;'Term List’) 

Done:-0 

DISPLAY SELECTIONUIndex];*) 
r While ((bOK-0)&(bCan-0)) 

$term:-Request('Enter Term Prefix To Search (OK for all):') 
rlf(ok-l) 

SEARCH BY INDEX([lndex]Term»$term+"@*) 
rlf (Records In selection([lndex])-0) 

ALERT ("No terms were found that match the prefix ”+$term+*\*) 
bCan>1 
Else 

SORT SELECTJON([lndex]Term;>) 
rlf (OK-1) 

Done:-0 

DISPLAY SELECTION([lndex];*) 

Else 
bCan:-1 
L End if 
L End if 
Else 
bCan>1 
L End if 
L End while 
CLOSE WINDOW 
rlf ((bOK-1)) 

USE SET('UserSet') . 

EdTerm :-[l ndexJTerm 
Else 

EdTerm:-"* 

L End If 
L End if 
‘"End If 
‘"End If 

' edit term 
“If (EdTerm#**) 

OEFAULT FILE([Main]) 

INPUT LAYOUT(*Mainin") 
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SEARCH BY INDEX([Main]Term=EdTerm) 

ALL SUBRECORDS([Main]Related) 

' create sets for adding and deleting link terms and pictures 
CREATE EMPTY SET([lndex];"OldRelSef) 

APPLY TO SUBSELECTI0N([Main]Related;Afafc/70/dfle/ ) 

ALL SUBRECORDS([Main]Broader) 

CREATE EMPTY SET([lndex];"OldBroSet") 

APPLY TO SUBSELECnON([Main]Broader;Matc/70WBro ) 

ALL SUBRECORDS([Main]Narrower) 

CREATE EMPTY SET([lndex];’OldNarSef) 

APPLY TO SUBSELECTION([Main]Narrower;Mafc/?0/d/Var ) 
ALL SUBRECORDS([Main]Pictures) 

CREATE EMPTY SET([Pics];"OldPics") 

APPLY TO SUBSELECT10N([Main]Pictures;Mafc/?0/dP/c ) 
xEdit>1 

MODIFY RECORD([Main];*) 
rlf (OK-1) 

temp>[Main]Term 

' add, delete, and rename link terms 
ALL SUBRECORDS([Main]Related) 

CREATE EMPTY SET([lndex];"NewRelSet“) 

APPLY TO SUBSELECTION([Main]Related;Mafc/7fle/ ) 
DIFFERENCE("NewRelSef;’OldRelSef;'Result") 

USE SETCResult') 

MESSAGES OFF 

APPLY TO SELECTlON([lndex];Addfle/ (temp)) 
MESSAGES ON 

DIFFERENCE("OldRelSet";’NewRelSet";"Result") 

USE SET("Result’) 

MESSAGES OFF 

APPLY TO SELECTION([lndex];Oe/fle/ (EdTerm)) 
MESSAGES ON 
rlf (EdTerm#temp) 

INTERSECTI0N("0ldRelSef;”NewRelSet";’Result") 

USE SET("Result") 

MESSAGES OFF 

APPLY TO SELECTION([lndex];fienfle/ (EdTerm ;temp)) 

MESSAGES ON 
L End If 

CLEAR SET("NewRelSet") 

SEARCH BY INDEX([Main]Term-temp) 

ALL SUBRECORDS([Main]Broader) 

CREATE EMPTY SET([lndex];"NewBroSet") 

APPLY TO SUBSELECTION([Main]Broader;MafchBro ) 
DIFFERENCE("NewBroSet";*OldBroSet";"Result") 

USE SET(’Result') 

MESSAGES OFF 

APPLY TO SELECTION([lndex];AddBro (temp)) 
MESSAGES ON 

DIFFERENCE("OldBroSet';"NewBroSet";"Result") 

USE SET("Result") 

MESSAGES OFF 

APPLY TO SELECTION([lnd ex],Del8ro (EdTerm)) 
MESSAGES ON 
rlf (EdTerm#temp) 

INTERSECTION("OldBroSet";*NewBroSet";"Result") 

USE SETCResult") 

MESSAGES OFF 

APPLY TO SELECTION([lndex];flenBro (EdTerm;temp)) 
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MESSAGES ON 
L End If 

CLEAR SET(’NewBroSet’) 

SEARCH BY INDEX([Main]Term-temp) 

ALL SUBRECORDS([Main]Narrower) 

CREATE EMPTY SET([lndex];’NewNarSet’) 

APPLY TO SUBSELECTION([Main]Narrower;Afafc/jWar ) 
DIFFERENCE(’NewNarSet";’OldNarSet’;’Result") 

USE SET(’Result’) 

MESSAGES OFF 

APPLY TO SELECTION([lndex];AcW/Var (temp)) 

MESSAGES ON 

DIFFERENCE(’OldNarSet’;"NewNarSet’;’Result’) 

USE SET(’Result’) 

MESSAGES OFF 

APPLY TO SELECTION([lndex);De/Nar (EdTerm)) 
MESSAGES ON 
rlf (EdTerm#temp) 

INTERSECT10N(’0ldNarSet";’NewNarSet’;"ResuIt’) 

USE SET(’Result’) 

MESSAGES OFF 

APPLY TO SELECTION([lndex];RenWar (EdTerm;temp)) 
MESSAGES ON 
L End If 

CLEAR SET(*NewNarSet*) 

' add and delete pictures 
SEARCH BY INDEX([Main]Term-temp) 

ALL SUBRECORDS([Main]Pictures) 

CREATE EMPTY SET([Pics];"NewPics*) 

APPLY TO SUBSELECTION([Main]Pictures;Mafc/»P/cs ) 
SEARCH BY INDEX([lndexJTerm-EdTerm) 

[ If (EdTemp#temp) 

[lndex]Term>temp 
End If 

DIFFERENCE(’OldPics’;'NewPics";’Result“) 

USE SET(’Result’) 

MESSAGES OFF 

APPLY TO SELECTION([Pics];De/P/c ) 

MESSAGES ON 

DIFFERENCE(’NewPics';’OldPics";’Result*) 

CLEAR SET(’NewPics") 

CLEAR SET(*Old pics’) 

SEARCH BY INDEX([Main]Term.temp) 

ALL SUBRECOROS((Main]Pictures) 

APPLY TO SUBSELECTION([Main]Pictures;AddP/c ) 
SAVE RECORD([lndex]) 

CLEAR SET(’Result’) 

CLEAR SET(’NewPics’) 

CLEAR SET(’Old pics’) 

L End If 

CLEAR SET(’OldRelSet’) 

CLEAR SET(’OldBroSet’) 

CLEAR SET(’OldNarSet’) 

L End If 

EnableAll 
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■ Purpose- edits the term displayed in the thesaurus screen 
' Calls: DisableAll, EnableAll, MatchOldRel, MatchOldNar, MatchOldBro, MatchRel 
MatchBro, MatchRel, RenRel, RenBro, RenNar, DelRel, DelNar, DelBro 
AddRel, AddBro, AddNar, AddPic, MatchPics, DelPic 

DEFAULT FILE([lndex]) 

DisableAll 

EdT erm>(Main]T erm 
DEFAULT FILE([Main]) 

INPUT LAYOUT('Mainln’) 

SEARCH BY INDEX([Main]Term-EdTerm) 

ALL SUBRECORDS([Main]Related) 

CREATE EMPTY SET([lndex];’OldRelSet") 

APPLY TO SUBSELECTI0N([Main]Related;Wafc/7O/dRe/ ) 

ALL SUBRECORDS([Main]Broader) 

CREATE EMPTY SET((lndex];"OldBroSet") 

APPLY TO SUBSELECTION([Main]Broader;/Wafc/)0/dB/o ) 

ALL SUBRECORDS([Main]Narrower) 

CREATE EMPTY SET([lndex];"OldNarSet") 

APPLY TO SUBSELECTION([Main]Narrower;MafchO/d/Var ) 

ALL SUBRECORDS([Main]Pictures) 

CREATE EMPTY SET([Pics];"OldPics") 

APPLY TO SUBSELECTI0N([Main]Pictures;Afafc/70/dP/c ) 
xEdit:— 1 

MODIFY RECORD([Main];*) 

-If (OK-1) 

temp>[Main]Term 

ALL SUBRECORDS([Main]Related) 

CREATE EMPTY SET([lndex];"NewRelSet") 

APPLY TO SUBSELECT10N([Main]Related;Mafchfle/ ) 
DIFFERENCE("NewRelSet";"OldRelSet’;’Result") 

USE SETfResult") 

MESSAGES OFF 

APPLY TO SELECTION([lndex];Addfle/ (temp)) 

MESSAGES ON 

DIFFERENCE(’OldRelSet";“NewRelSef;"Result") 

USE SET(-Result') 

MESSAGES OFF 

APPLY TO SELECTION([lndex];De/fle/ (EdTerm)) 

MESSAGES ON 
rlf (EdTerm#temp) 

INTERSECTION(’OldRelSet";“NewRelSet";"Result") 

USE SET(’Result’) 

MESSAGES OFF 

APPLY TO SELECTION([lndex];flenfle/ (EdTerm ;temp)) 

MESSAGES ON 
L End It 

CLEAR SET('NewRelSet’) 

SEARCH BY INDEX([Main]Term-temp) 

ALL SUBRECORDS([Main]Broader) 

CREATE EMPTY SET([lndex];'NewBroSet”) 

APPLY TO SUBSELECT10N([Main]Broader;Mafc/)Bro ) 
DIFFERENCE(*NewBroSet’;"OldBroSet";"Result*) 

USE SET(’Result’) 

MESSAGES OFF 

APPLY TO SELECT10N([lndex];AddBro (temp)) 

MESSAGES ON 

DIFFERENCE(’OldBroSet";"NewBroSet";"Result’) 

USE SETfResulf) 
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MESSAGES OFF 

APPLY TO SELECTION([lndex];De/Sro (EdTerm)) 
MESSAGES ON 
rlf (EdTerm#temp) 

INTERSECTIONCOIdBroSer;'NewBroSet’:’Resulf) 

USE SET(’Result’) 

MESSAGES OFF 

APPLY TO SELECTION([lndex];ften0ro (EdTerm;temp)) 
MESSAGES ON 
L End If 

CLEAR SET(’NewBroSet') 

SEARCH BY INDEX([Main]Term-temp) 

ALL SUBRECORDS([Main]Narrower) 

CREATE EMPTY SET([lndex];"NewNarSet") 

APPLY TO SUBSELECTION([Main]Narrower;Afafc/7A/ar ) 
DIFFERENCE(’NewNarSet’;“OldNarSet";"Result") 

USE SET(’Result’) 

MESSAGES OFF 

APPLY TO SELECTION([lndex);AddA/ar (temp)) 
MESSAGES ON 

DIFFERENCE(’OldNarSet";’NewNarSet';"Result’) 

USE SET('Result’) 

MESSAGES OFF 

APPLY TO SELECTION([lndex];0e/A/ar (EdTerm)) 
MESSAGES ON 
rlf (EdTerm#temp) 

INTERSECT10N('0ldNarSet";*NewNarSet’;’Result') 

USE SET(-Result-) 

MESSAGES OFF 

APPLY TO SELECTION([lndex];ftenA/ar (EdTerm;temp)) 
MESSAGES ON 
L End If 

CLEAR SET(’NewNarSet’) 

SEARCH BY INDEX([Main]Term-temp) 

ALL SUBRECOROS([Main]Pictures) 

CREATE EMPTY SET([Pics];'NewPics') 

APPLY TO SUBSELECTION([Main]Pictures;Afafc/)P/cs ) 
SEARCH BY INDEX([lndex]Term-EdTerm) 

[ If (EdTemp#temp) 

[lndex]Term>temp 
End If 

DIFFERENCE(*OldPics';’NewPics';’Result") 

USE SET(’Result*) 

MESSAGES OFF 

APPLY TO SELECTlON([Pics];0e/P/c ) 

MESSAGES ON 

DIFFERENCE(*NewPics’;*OldPics*;"Result") 

CLEAR SET(’NewPics’) 

CLEAR SET(*Old pics') 

SEARCH BY INDEX([Main]Term.temp) 

ALL SUBRECORDS([Main]Pictures) 

APPLY TO SUBSELECTION((Main]Pictures;AddP/c ) 

SAVE RECORD([lndex]) 

CLEAR SET('Result') 

CLEAR SET('NewPics’) 

CLEAR SET("Old pics') 

L End If 

CLEAR SET('OldRelSet’) 
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CLEAR SET(-OldBroSet-) 
CLEAR SETfOldNarSeO 
End if 

EnableAll 
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' Purpose: enables the appropriate menus 

ENABLE ITEM(1;0) 

"If ((screen-0)|(screen»1 )) 

ENABLE ITEM(2;0) 

ENABLE ITEM(3;0) 

L End If 

t lf (screen-3) 

ENABLE ITEM(5;0) 

End If 

[ If (screen-4) 

ENABLE ITEM(4;0) 

End If 


UpdataManuBar 
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' purpose: executes a search on the external database 
' Calls: DisableAll, EnableAll, Breakup 

MESSAGE("Searching, Please Wait.") 

SET CHANNEL(31;1 0+1 6384+3072) 
rlf (vKeys0=0) 

BEEP(10) 

Else 

SEND PACKET("GET ") 

$i:»1 

r While ($i<vKeysO) 

lem:- BreakUp (vKeys{$i}) 

SEND PACKET(tem+" "+DefOp+" ") 

$i:«$i+1 
•■End while 

ResText>"Search Terms:’+Char(13) 

$i:»1 

r While ($i<-vKeysO) 

ResText:«ResText+vKeys{$i}+Char(13) 

$i>$i+1 
*~End while 

ResText>ResText+ "Search Results:"+Char(1 3) 

Done>0 

xTimeout>0 

* 60 second timout 
timeout>Current tlme+60 

SEND PACKET(Brea/cl/p (vKeys{vKeys0})+Char(1)) 

* set the serial handler to our routine 

ON SERIAL PORT CALLfSerialHandler") 
r While (Done-0) 

rlf (Current tlme>-timeout) 

ON SERIAL PORT CALL(”) 
xTimeout>1 
Done:=1 
L End if 
‘-End while 
rlf (xTimeout-0) 

ON SERIAL PORT CALL(“") 

’ display the results 

Text2Array (ResText;"vResults";492;’monaco’;9;0) 
disableAll 

DIALOG([Main];"Results") 

enableAll 

Else 

‘ timeout error 

BEEP(10) 

BEEP(IO) 

ALERT("Serial connection timed out.') 
DIALOG([Main];"Dummy") 

L End If 
L End If 
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' Purpose: handles menu selections for the system 
' Calls: DoAbout, DoFind, Piclndex, DoPrefs, NewDoc, DocList, DumpDocs 
NewTerm, EditTerm, DelTerm, NewPic, EditPics, DelPics, LoadPics 
PrintThes 

$i:=Menu selected 
Menu>lnt($i/65536) 
ltem:-Mod($i;65536) 

Case of 

' file menu 
: (Menu-1) 

-Case of 
: (ltem«1) 

DoAbout 
: (Item-5) 

Ouit4D (3) 

L End case 
' modules menu 
: (Menu-2) 

-Case of 
: (Item-1) 

xOldScreen:-Screen 

DISABLE ITEM(1 ;0) 

DISABLE ITEM(2;0) 

DISABLE ITEM(3;0) 

UpdataMenuBar 
DIALOG([Main];"Buffer") 
screen :- xOld Scree n 
ENABLE ITEM(1 ;0) 

ENABLE ITEM(2;0) 

ENABLE ITEM(3;0) 

UpdataManuBar 
: (Item-2) 

Screen >4 
: (Item-3) 

$pass:-Request('Enter Password:") 
rlf(OK-l) 

rlf ($pass-’master") 

Screen >3 

Else 

BEEP(IO) 

L End if 
L End If 
L End case 

' thesaurus menu 
: (Menu-3) 

-Case of 
: (Item-1) 

Screen:-0 
: (Item-3) 

DoFind 
: (Item-4) 

Piclndex 

CancalDIg 

: (Item-6) 

DoPrefs 
L End case 

' descriptions menu 
: (Menu-4) 
rCase of 
: (Item-1) 
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NewDoc 
: (ltem=2) 

DocList 
: (ltem=4) 
DumpDocs 
: (Item-6) 
Screen>0 
*~End case 

' maintenance menu 
: (Menu-5) 
rCase of 
: (ltem«1) 
NewTerm 
: (Item-2) 
EdhTemn 
: (ltem»3) 
DeTTerm 
: (Item-5) 

NewPic 
: (Item-6) 
EditPics 
: (Item-7) 

DelPics 
: (Item-8) 
LoadPics 
: (Item-10) 
PrintThes 
: (Item-12) 
Screen>0 
^■End case 
*~End case 
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' Purpose: loads the search buffer from a file 

SET CHANNELS 3;*’) 

-If (OK=1) 

RECEIVE PACKET(temp;Char(13)) 
vKeysO:«Num(temp) 

$i>1 

rWhlle ($i<-vKeysO) 

RECEIVE PACKET(vKeys{$i};Char(13)) 
$i:-$i+1 
^End while 
SET CHANNEL(II) 

REDRAW(vKeys) 

L End If 
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' Purpose: loads new pictures from a file 

DEFAULT FILE([Pics]) 

SET CHANNEL(10;’") 
name> Document 
SET CHANNEL(II) 

OpenRes (name;ref) 

Count Piet (ref;ct) 
ind 1 
rlf (ct#0) 

r While (ind<-ct) 
bCan>0 

GetPIct (ref;ind;pic;name;id) 
rlf (name-’") 
vName:-” 

h1:-Screen height/2+10 

wl >Screen wldth/2 

h2:-90 

w2:-1 90 

bCan:-0 

r While ((name-”)&(bCan-0)) 

OPEN WINDOW(w1 -w2;h1 -h2;w1 +w2;h 1 +h2;1 ) 

vErrMess:-’This picture does not have a name. Please enter a name or hit Cancel to skip.’ 

vErrPiopic 

DIALOG(’PicError’) 

CLOSE WINDOW 
name:-vName 
‘'End while 
‘■End If 
rlf (bCan-0) 

SEARCH BY INDEX([Pics]Name-name) 
rlf (Records in selectlon([Pics])>0) 
h1:-Screen helght/2+10 
w1:-Screen wldth/2 
h2:-90 
w2:-1 90 
bCan:»0 
oldname:=name 

rWhlle ((name-oldname)&(bCan-0)) 

OPEN WINDOW(w1 -w2;h1 -h2;w1+w2;h1+h2;1 ) 

vErrMess:-The name " , +oldname+’’ is already in use. Please enter another name or hit Cancel.’ 

vErrPiopic 

vName:-” 

DIALOG(’PicError’) 

CLOSE WINDOW 
name:-vName 

SEARCH BY INDEX([Pics]Name-name) 

[ If (Records In selection([Pics])>0) 
oldname:-name 
End If 
'“End while 
rlf (bCan-0) 

CREATE RECORD((Pics]) 

[Pics]Name:-name 

[Pics]Pic>pic 

SAVE RECORD([Pics]) 

‘"End If 
Else 

CREATE RECORD([Pics]) 

(Pics]Name:-name 

[Pics]Pic:-pic 
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j I SAVE RECORD([Pics]) 

L End If 
L End If 

CLEAR VARIABLE("pic") 
ind>ind+1 
*~End while 
Else 

ALERT("No pictures were found in this file.") 
L End If 
CIosbRbs (ref) 
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‘ Purpose: loads a term into the main screen for display 

DEFAULT FILE([Main]) 

vTermPic:=MTPic 

vPicName:-’" 

vGo:='" 

vLink>” 

vNextLink:=” 

vPrevLink:-"" 

RecStr:-’Related" 

vTerm:-" LOADING TERM, PLEASE WArT..." 

SET WINDOW TITLECTerm Display") 

ALL SUBRECORDS([Main]Pictures) 

-|f (Records In subselectlon([Main]Pictures)<2) 

ButtState (O.bTermPicUp) 

ButtState (O.bTermPicDow) 

REDRAW(bTermPicUp) 

REDRAW(bTermPicDow) 

If (Records In subselectlon([Main]Pictures)»1) 

LOAD LINKED RECORD([Main]Pictures’Name) 
vTermPic:-[Pics]Pic 
vPicName>[Pics]Name 
L End If 
Else 

ButtState (1 ;bTermPicUp) 

ButtState (1;bTermPicDow) 

REDRAW(bT ermPicUp) 

REDRAW(bT ermP icDow) 

LOAD LINKED RECORD([Main]Pictures’Name) 
vTermPic:-[Pics]Pic 
vPicName>[Pics]Name 
L End If 

ALL SUBRECORDS([Main]Related) 

SORT SUBSELECTION([Main]Related;[Main]Related’Term;>) 

-If (Records In subselection([Main]Related)<2) 

ButtState (O.bLinkUp) 

ButtState (0;bLinkDow) 

REDRAW(bLinkUp) 

REDRAW(bLinkDow) 

rlf (Records In subselectlon([Main]Related)-1) 
vLink>[Main]Related’Term 
vPrevLink:-"" 
vNextLink:-’’ 

‘‘End If 
Else 

ButtState (1;bLinkUp) 

ButtState (1;bLinkDow) 

REDRAW(bLinkUp) 

R EDR AW(bLinkDow) 

vLink>[Main]Related'Term 

NEXT SUBRECORD([Main]Related) 

vN ext Link:-[Main]Related 'Term 

LAST SUBRECORD([Main]Related) 

vPrevLink>[Main]Related'Term 

FIRST SUBRECORD([Main]Related) 

*-End If 

ALL SUBRECORDS([Main]Broader) 

SORT SUBSELECTION([Main]Broader;[Main]BroaderTerm;>) 
ALL SUBRECORDS([Main]Narrower) 

SORT SUBSELECTION([Main]Narrower;[Main]NarrowerTerm;>) 

vRel>1 
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vNar>0 

vBro>0 

vLinkPioMTPic 

"If (Records In subselectlon([Main]Related)>0) 
vGo:»’Go to '■+[Main]Related’Term+"" 

ButtStat a (1 ;bGo) 

REDRAW(bGo) 

SEARCH BY INDEX{[lndex]Terma[Main]Related'Term) 
ALL SUBRECORDS([lndex]Pictures) 
rlf (Records in subselectlon([lndex]Pictures)<2) 
ButtState (0;bLinkPicUp) 

ButtStata (0;bLinkPicDow) 

REDRAW(bLinkPicUp) 

REDRAW(bLinkPicDow) 

rlf (Records In subselection([lndex]Pictures)-1) 
LOAD LINKED RECORD([lndex]Pictures'Name) 
vLinkPic:»(Pics]Pic 
L End If 
Else 

ButtStata (1;bLinkPicUp) 

ButtStata (1;bLinkPicDow) 

REDRAW(bLinkPicUp) 

REDRAW(bLinkPicDow) 

LOAD LINKED RECORD([lndex]Pictures*Name) 
vLinkPic>[Pics]Pic 
L End If 
Else 

ButtStata (O.bLinkPicUp) 

ButtStata (0;bLinkPicDow) 

REDRAW(bLinkPicUp) 

REDRAW(bLinkPicDow) 

ButtStata (0;bGo) 

REDRAW(bGo) 

L End If 

vTerm:-[Main]Term 

ScraanRadraw 
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' Purpose: controls the screen display of the thesaurus system 

DISABLE ITEM(1;3) 

UpdateMenuBar 

OldScreen:-0 

-While (True) 

' opening screen 
rlf (screen-0) 

ENABLE ITEM(1;0) 

ENABLE ITEM(2;0) 

ENABLE ITEM(3;0) 

DISABLE ITEM(4;0) 

DISABLE ITEM(5;0) 

UpdateMenuBar 

DIALOG((Main];'Opening') 

OldScreen:-0 
‘"End if 

' main thesaurus screen 
rlf (screen-1) 

ENABLE ITEM(1;0) 

ENABLE ITEM(2;0) 

ENABLE ITEM(3;0) 

DISABLE ITEM(4;0) 

DISABLE ITEM(5;0) 

UpdateMenuBar 

DIALOG([Main];"Mainout’) 

OldScreen:-1 
‘-End if 

rlf (screen-2) 

L End If 


' maintenance screen 
-If (screen-3) 

ENABLE ITEM(1;0) 
DISABLE ITEM(2;0) 
DISABLE ITEM(3;0) 
DISABLE ITEM(4;0) 
ENABLE ITEM(5;0) 
UpdateMenuBar 

DIALOG([Main];’Maint") 
‘"End if 

‘ descriptions screen 
“If (screen-4) 

ENABLE ITEM(1;0) 
DISABLE ITEM(2;0) 
DISABLE ITEM(3;0) 
ENABLE ITEM(4;0) 
DISABLE ITEM(5;0) 
UpdateMenuBar 

DIALOG((Docs];’DocMaint") 
L End if 


•-End while 
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' Purpose: adds a matching broader term from the index into a set 

$temp:-[Main]Broader*Term 

SEARCH BY INDEX([lndex]Term-$temp) 

ADD TO SET([lndex];"NewBroSet") 
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' Purpose: adds a matching narrower term from the index into a set 

$temp:=[Main]NarrowerT erm 

SEARCH BY INDEX([lndex}Term«$temp) 

ADD TO SET([lndex];"NewNarSet") 
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' Purpose: adds a matching broader term from the index into a set 

$temp:-[Main]BroaderTerm 

SEARCH BY INDEX([lndex]Term«$temp) 

ADD TO SET([lndex];"OldBroSet") 
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' Prupose: adds a matching narrower term from the index into a set 

$temp:=[Main]NarrowerTerm 

SEARCH BY INDEX([lndex)Term«$temp) 

ADD TO SET([lndex];"OldNarSet’) 
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' Purpose: adds a matching picture from the pics file into a set 

$temp>[Main]Pictures’Name 

SEARCH BY INDEX([Pics]Name-$temp) 

ADD TO SET([Pics];"OldPics") 
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' Purpose: adds a matching related term from the index into a set 


$temp>[Main]RelatedTerm 

SEARCH BY INDEX([index]Term-$temp) 

ADD TO SET([lndex];"OldRelSet") 
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' Purpose: adds a matching picture from the picture file into a set 

$temp>[Main]Pictures'Name 

SEARCH BY INDEX([Pics]Name-$temp) 

ADD TO SET^PicsJ^NewPics") 
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' Purpose: adds a matching related term from the index into a set 

$temp>[Main]RelatedTerm 

SEARCH BY INDEX([lndex]Term-$temp) 

ADD TO SET([lndex];’NewRelSet") 
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‘ Purpose: creates a new description and saves it 
' Calls: DisableAII, Enable All 

INPUT LAYOUT([Docs];"DocMain") 

DisableAII 

xNewDool 

ADD RECORD([Docs];*) 

"If (OK-1) 
ind:*1 

rWhlle (ind<»vKeysO) 

CREATE SUBRECORD([Docs]Keywords) 

[Doc$]KeywordsTerm:»vKeys{ind} 

ind>ind+1 

^End while 

SAVE RECORD([Docs]) 

L End if 

EnableAll 
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' Purpose: creates a new picture and saves it 
' Calls: DisableAll, EnableAll 

DEFAULT FILE([Pics]) 

DisableAll 

INPUT LAYOUT(-Picln-) 

ADD RECORD([Pics];*) 

EnableAll 
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' Purpose: creates a new term and saves it 

' Calls: DisableAll, EnableAll, MatchRel, MatchBro, MatchNar, AddRel, AddBro 
AddNar, CopyPics 

DEFAULT FILE([Main]) 

INPUT LAYOUT(-Mainln-) 

DisableAll 

xEdit>0 

ADD RECORD([Main];*) 

-If (OK— 1 ) 

' use sets to add new term links and pictures 
temp:*[Main]Term 

ALL SUBRECORDS([Main]Related) 

CREATE EMPTY SET([lndex];"NewRelSef) 

APPLY TO SUBSELECTION([Main]Related;Ma/c/jfle/ ) 

USE SET(’NewRelSet’) 

MESSAGES OFF 

APPLY TO SELECTION([lndex];Addfle/ (temp)) 

MESSAGES ON 
CLEAR SETCNewRelSet") 

SEARCH BY INDEX([Main]Term-temp) 

ALL SUBRECORDS([Main]Broader) 

CREATE EMPTY SET([lndex];’NewBroSet’) 

APPLY TO SUBSELECT1ON([Main]Broader;Afafc/j0ro ) 

USE SET(*NewBroSet") 

MESSAGES OFF 

APPLY TO SELECTION([lndex];Addflro (temp)) 

MESSAGES ON 
CLEAR SET("NewBroSet*) 

SEARCH BY INDEX([Main]Term-temp) 

ALL SUBRECORDS([Main]Narrower) 

CREATE EMPTY SET([lndex];’NewNarSet’) 

APPLY TO SUBSELECTION^MainJNarrowerjAfafchWa/ - ) 

USE SET(’NewNarSef) 

MESSAGES OFF 

APPLY TO SELECTION^IndexJjAddWar (temp)) 

MESSAGES ON 
CLEAR SET(*NewNarSet*) 

SEARCH BY INDEX([Main]Term-temp) 

ALL SUBRECORDS((MainJPictures) 

CREATE RECORD([lndex]) 

[lndex]Term>temp 

APPLY TO SUBSELECTION([Main]Pictures;CopyP/cs ) 

SAVE RECORDdlndex]) 

*“End If 

EnableAll 
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' Purpose: displays pictures and selects a matching thesaurus term 
' Calls: DisableAll, EnableAll, LoadTerm 


' search (or pictures 
DEFAULT FILE([Pics]) 

EdTerm:-” 

DisableAll 

INPUT LAYOUT(’PicDum’) 

$term>Request(’Enter Picture Prefix To Search (OK for all):’) 
rlf (ok-1) 

SEARCH BY INDEX([Pics]Name-$term+’@") 
rlf (Records In selectlon((Pics])-0) 

ALERT("No pictures were found that match the prefix "+$term+”.’) 

Else 

OUTPUT LAYOUT(’Piclndex’) 

SORT SELECTION([Pics]Name;>) 
rlf (OK-1) 

Done>0 

DISPLAY SELECTION([Pics]) 
r While ((bGo-0)&(bCan-0)&(Done-0)) 

$term:-Request (’Enter Picture Prefix To Search (OK for all):") 
rlf (ok-1) 

SEARCH BY INDEX([Pics]Name-$term+’@") 
rlf (Records In selectlon([Pics))-0) 

ALERT("No pictures were found that match the prefix " , +$term+”.’) 
bCan:-1 
Else 

SORT SELECTION([Pics]Name;>) 
rlf (OK-1) 

Done:=0 

DISPLAY SELECTION([Pics)) 

Else 
bCan:-1 
L End If 
L End If 
Else 
bCan:-1 
L End If 
^End while 
rlf ((bGo-l)l(Done-l)) 

USE SET(’UserSet’) 

EdTerm:-[Pics]Name 
L End If 
L End If 
L End If 
L End if 


' select a matching term and display it 
rlf (EdTerm#”) 

DEFAULT FILE([lndex]) 

INPUT LAYOUT(’TermDum’) 


$term:-EdTerm 
rlf (ok-1) 

SEARCH BY INDEX([lndex]Pictures’Name-$term) 
rlf (Records In selectlon([lndex])-0) 

ALERTfNo terms were found that use the picture "■+$term+"’.’) 


Else 

OUTPUT LAYOUT(’TermList’) 
SORT SELECT10N([lndex]Term:>) 
rlf (OK-1) 

I h1:-Screen helght/2+10 
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w1:-Screen width/2 

h2:-1 18 

w2:-200 


xDMod>1 

OPEN WINDOW(w1 -w2;h1-h2;w1+w2;h1+h2;4;’Term List") 
Done:-0 

DISPLAY SELECTION([lndex];‘) 

CLOSE WINDOW 
ScreenRedraw 

~lf ((bOK-1)) 

USE SET('UserSet’) 

SEARCH BY INDEX([Main]Term«[lndex]Term) 
rlf (screen-1) 

LoadTerm 

Else 

Screen >1 


End if 


L 


*-End if 
L End If 
L End If 
End if 


*“End If 


EnablaAII 
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' Purpose: displays a list of pictures to select for adding to terms 

DEFAULT FILE([Pics]) 

INPUT LAYOUT(-PicDum’) 

OUTPUT LAYOUTfPicList-) 

ALL RECORDS([Pics]) 
xPicAII>1 

SORT SELECTION([Pics]Name;>) 
bCan:=0 
rlf (OK-1) 

h1:-Screen helght/2+10 
wl >Screen wldth/2 
h2:=118 
w2:«200 

OPEN WINDOW(w1-w2;h1-h2;w1+w2;h1+h2;4;"Picture List ) 
Done>0 

DISPLAY SELECTION([Pics];*) 

CLOSE WINDOW 
Else 
bCan:-1 
L End If 

rlf (bCan-O) 

USE SET(’UserSet’) 

$0>[Pics]Name 
L End If 
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’ Purpose: prints terms from the thesaurus 

DEFAULT FILE((Main]) 

$term:-Request("Enter Term Prefixes To Print ") 
-If (OK-1) 

SEARCH BY INDEX([Main]Term-$term+"<a>") 
SORT BY INDEX([Main]Term;>) 
rlf (OK-1) 

OUTPUT LAYOUT(’ThesOut’) 

PRINT SELECTION 
L End If 
L End If 
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' Purpose: renames a broader term 
' Parameters: $1 - old name, $2 - new name 

SEARCH BY INDEX([Main]Term«[lndex]Term) 

SEARCH SUBRECORDS([Main]Broader;[Main]Broader’Term-$1) 

[Main]BroaderTerm:-$2 

SAVE RECORD([Main]) 
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' Purpose: renames a narrower term 
' Parameters: $1 - old name, $2 - new name 

SEARCH BY INDEX([Main]Term«[lndex]Term) 

SEARCH SUBRECORDS([Main]Narrower;[Main]NarrowerTerm-$1 ) 

[Main]NarrowerTerm>$2 

SAVE RECORD([Main]) 
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' Purpose: renames a related term 
' Parameters: $1 - old name, $2 - new name 

SEARCH BY INDEX([Main]Term-[lndex]Term) 

SEARCH SUBRECORDS([Main]Related;[Main]RelatedTerm«$1) 

[Main]Related’Term:*$2 

SAVE RECORD([Main]) 
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' Purpose: saves terms in the buffer to a file 

SET CHANNELS 2;”) 

-If (OK.1) 

SEND PACKET(Strlng(vKeysO)+Char( 1 3)) 
$i>1 

rWhlle ($i<-vKeysO) 

SEND PACKET(vKeys{$i}+Char(13)) 
$i.»$i+1 

^End while 
SET CHANNELS 1) 

L End If 


Thursday. July 6. 1909 Procedure: SerlalHandler 

' Purpose: takes characters from the serial buffer to be displayed in the result 
' screen 

RECEIVE BUFFER(Temp) 

ResText>ResText+Temp 
rlf (Posltlon(Char(1);Temp)#0) 

Done:*1 
*~End If 
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' Purpose: displays the keywords list and pastes the keyword if requested 
' Calls: EnableAll, DisableAll 

DisableAll 

OPEN WINDOW ((Screen wldth/2)-186;(Screen helght/2)-1 13;(Screen wldth/2)+186;(Screen helght/2)+1 i4-4-'Keywords* 
DIALOG([Docs];"Keys") ’ ’ 

CLOSE WINDOW 
"If (Paste-1) 
rlf (vTermKeys#0) 

GET HIGHUGHTED TEXT([Docs]Text;start;end) 

[Docs]Text:-Sub8trlng([Docs]Text;1;start-1)+vTermKeys{vTermKeys}+Subetrlng((Docs]Text;end;32767-end) 

HIGHLIGHT TEXT([Docs]Text;start+Length(vTermKeys{vTermKeys});start+Length(vTErmKeys{vTErmKeys})) 
u End if 
L End if 

EnableAll 
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' Purpose: startup initialization procedure 
' size window 

"If (Screen width-512) 

SetlntegarRes (’CUST";0;14;1) 

Else 

SetlntegarRes ("CUST’;0;15;0) 
SetlntegarRes ("CUST';0;16;0) 
SetlntegarRes (-CUST-;0;17;342-20) 
SetlntegarRes (’CUST";0;18;512) 
SetlntegarRes (”CUST’;0;14;3) 
SetlntegarRes ("C U ST" ; 0 ; 1 9 ; 1 ) 
SetlntegarRes ("CUST';0;20;0) 

L End If 

’ define empty picture constant 
SEARCH BY INDEX([Pics]Name-’Empty") 
MTPic:=[Pics]Pic 

vKeys>0 

vKeys0:»0 

' define pictures for opening screen 
ProgPic:-"S83-35799" 

FacPic:-*S87-38631 " 

PerPio’S 64-29940" 

SEARCH BY INDEX([Pics]Name-ProgPic) 
OPic1:-[Pics]Pic 

SEARCH BY INDEX([Pics]Name-FacPic) 
OPic2:-[Pics]Pic 

SEARCH BY INDEX([Pics]Name«PerPic) 
OPic3:-[Pics]Pic 

' default search operator 
DefOpVOR" 

Screen:-0 

MENU BAR(1) 

DISABLE ITEM(2;0) 

DISABLE ITEM(3;0) 

DISABLE ITEM(4;0) 

DISABLE ITEM(5;0) 

UpdateMenuBar 
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' Purpose: displays list of terms for addind links to terms being edited 

DEFAULT FILE([lndex]) 

INPUT LAYOUT(’TermDum") 

$term:-Request(’Enter Term Prefix To Search (OK for all):’) 

-|f(ok»1) 

SEARCH BY INDEX([lndex]Term-$term+"<a>’) 
rlf (Records In selectlon([lndex])-0) 

ALERT ('No terms were found that match the prefix ”+$term+’' *) 

Else 

OUTPUT LAYOUT('TermList’) 

SORT SELECTION([lndex]Term;>) 
rlf (OK-1) 

h1:-Screen helght/2+10 

w1:-Screen wldth/2 

h2:-1 18 

w2>200 

xDMod>0 

OPEN WINDOW(w1-w2;h1-h2;w1+w2;h1+h2;4;’Term List’) 

Done:-0 

DISPLAY SELECTION([lndex];*) 
r While ((bOK-O)A(bCan-O)) 

$term:-Request("Enter Term Prefix To Search (OK for all)-’) 
rlf (ok- 1) 

SEARCH BY INDEX([lndex]Term-$term+"@’) 
rlf (Records In selectlon([lndex])-0) 

ALERT ("No terms were found that match the prefix "+$term+’\’) 
bCan:-1 
Else 

SORT SELECTION([lndex]Term;>) 
rlf (OK-1) 

Done:-0 

DISPLAY SELECTION([lndex];‘) 

Else 
bCan:-1 
L End If 
L End If 
Else 
bCan:-1 
L End If 
*~End while 
CLOSE WINDOW 
rlf ((bOK-1)) 

USE SET(’UserSet’) 

$0:-(lndex]Term 
L End if 
‘"End if 
L End if 
‘■End If 
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File 


About The Thesaurus... 
Enter The Thesaurus... 
Quit 


DoAbout 

MainEventLoop 

DoQuit 


Modules 

Search Buffer 

Descriptions 

Maintenance 


Thesaurus 

Main Screen 

Term Index... 
Picture Index... 

Search Preferences 


Descriptions 

New Description... 
Edit Description... 

Export Descriptions... 

Back To Thesaurus 


Maintenance 

New Term... 

Edit Term... 

Delete Term 

New Picture... 

Edit Picture... 
Delete Picture 
Load Pictures... 

Print Thesaurus... 


Back To Thesaurus 


Section 5 

Identifier Cross-Reference 
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About.[Maln] 
AddBro (P) 

AddNar (P) 

AddPIc (P) 
AddRel (P) 

bAdd (V) : 

bBack (V) : 

bBro (V) : 

bCan (V) : 


b Can cal (V) 
bClear (V) : 


(L) : DoAbout (P) 

: EditTerm (P) 

EditTerm2 (P) 

NewTerm (P) 

: EditTerm (P) 

EditTerm2 (P) 

NewTerm (P) 

EditTerm (P) 

EditTerm2 (P) 

EditTerm (P) 

EditTerm2 (P) 

NewTerm (P) 

Mainout.[Main] (L) 
Mainout.[Main] (P) 
Buffer.[Main] (L) 
Buffer.[Main] (P) 

Buffer.[Main] (L) 

Mainout.[Main] (L) 
Mainout.[Main] (P) 

Termlndex.[Main] (L) 
Relln.[Mainj'Related (L) 
Relln.[Mainj’Related (P) 
Broln.[Main]'Broader (L) 
Broln.[Mainj’Broader (P) 
Narln.[Mainj'Narrower (L) 
Narln.[Mainj'Narrower (P) 
Picln.[Main]'Pictures (L) 
Picln.[Mainj'Pictures (P) 
PicList.[Pics] (L) 
Picln.[Pics] (L) 
PicError.[Pics] (L) 
PicIndex.fPics] (L) 
DocMain.[Docs] (L) 
TermList. [Index] (L) 
DelPics (P) 

DerTerm (P) 

OocList (P) 

DoFmd (P) 

DumpDocs (P) 

EditPics (P) 

EditTerm (P) 

LoadPics (P) 

Piclndex (P) 

PicList (P) 

TermList (P) 

Mainln.(Main] (L) 
Mainln.[Main] (P) 

Buffer.[Main] (L) 
Buffer.[Mainj (P) 
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bDel (V) : 

Buffer.[Main] (L) 
Buffar.[Main] (P) 
Relln.[Main]’Related (L) 
Relln.[Main]’Related (P) 
Broln.[Main]'Broader (L) 
Broln.[Main]‘Broader (P) 
Narln.[Mainj'Narrower (L) 
Narln.[Mainj'Narrower (P) 
Picln.[Main]’Pictures (L) 
Picln.[Main]'Pictures (P) 

bDelete (V) 

Keys.[Docs] (L) 
Keys.[Docsj (P) 

bDelPIc (V) : 

Maint.[Main] (L) 
Maint.[Mainj (P) 

bDelTerm (V) 

Maint.[Main] (L) 
Maint.[Main] (P) 

bDum (V) : 

Results.[Main] (L) 
Results.[Main] (P) 
Opening.(Main) (L) 
Opening.(Main) (P) 
DocMain.[Docs] (L) 
DocMain.[Docsj (P) 
Keys.[Docs] (L) 
Kays.[Docsj (P) 

bEdit (V) : 

Maingut.[Main] (L) 
Mainout.[Main] (P) 

bEditDesc (V) : 

DocMaint.[Docs] (L) 
DocMaint.[Docsj (P) 

bEditPIc (V) : 

Maint.[Main] (L) 
Maint.[Mainj (P) 

bEdltTerm (V) : 

Maint.[Main] (L) 
Maint.[Mainj (P) 

bExpDesc (V) 

DocMaint.(Docs] (L) 
DocMaint.[Docs] (P) 

bExport (V) : 

Keys.[Docs] (L) 
Keys.[Docs] (P) 

bGo (V) : 

Mainout.[Main] (L) 
Mainout.[Main] (P) 
Termlndex.[Main] (L) 
Piclndex.[Pics] (L) 
DoRnd (P) 

LoadTerm (P) 
Piclndex (P) 

bGoInd (V) : 

Opening.[Main] (L) 
Opening.[Main] (P) 

blmport (V) 

Keys.[Docs] (L) 
Keys.[Docs] (P) 
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bKeys (V) 

DocMain.[Docs] (L) 
DocMain.[Docs] (P) 

bLInkOow (V) 

Mainout.[Main] (L) 
Mainout.fMainj (P) 
LoadTerm (P) 

bLInkPicDow (V) 

Mainout.[Main] (L) 
Mainout.[Main] (P) 
LoadTerm (P) 

bLInkPicUp (V) : 

Mainout.[Main] (L) 
Malnout.[Main) (P) 
LoadTerm (P) 

bLinkUp (V) : 

Mainout.[Main] (L) 
Mainout.[Main] (P) 
LoadTerm (P) 

bLoad (V) : 

Buffer.[Main] (L) 
Buffei\[Main] (P) 

b Load Pics (V) 

Maint.[Main] (L) 
Maint.[Main] (P) 

bMod (V) : 

Termlndex.[Main] (L) 
PicList.[Pics] (L) 
PicList.[Picsj (P) 
Piclndex.(Pics) (L) 
DocList.[Docs] (L) 
TermList. [Index] (L) 
TermList. [Index] (P) 

bNar (V) : 

Mainout.[Main] (L) 
Malnout.[Main] (P) 

bNewOesc (V) 

DocMainL[Docs] (L) 
DocMainL[Docsj (P) 

bNewPlc (V) 

Maint.[Main] (L) 
Maint.[Main] (P) 

bNewTerm (V) 

Maint.[Main] (L) 
Maint.fMainj (P) 
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bOK (V) : 


bool (V) : 

bPaste (V) : 

bPid (V) : 

bPlc2 (V) : 

bPlc3 (V) : 

bPrlnt (V) : 

Breakup (P) 
bRel (V) : 

Broader [Main] 


Mainln.(Main) (L) 
Results.[Main] (L) 
Relln.[Main]'Related (L) 
Broln.[Main]’Broader (L) 
Narln.[Mainj'Narrower (L) 
PicIn.fMainl’Pictures (L) 
PicList.[Pics] (L) 
Picln.[Pics] (L) 
DocMain.[Docs] (L) 
Doclist.[Docs] (L) 
Keys.[Docs] (L) 
Keys.[Docs] (P) 
TermList.[lndex] (L) 
DelPics (P) 

DerTerm (P) 

DocList (P) 

DumpDocs (P) 

EditPics (P) 

EditTerm (P) 

Piclndex (P) 

TermList (P) 

Mainout.[Main] (P) 

Keys.[Docs] (L) 
Keys.(Docs) (P) 

Opening.[Main] (L) 
Opening.[Main] (P) 

Opening.[Main] (L) 
Opening.[Mainj (P) 

Opening.[Main] (L) 
Opening.[Mainj (P) 

Results.[Main] (L) 
Results.[Main] (P) 
DocMain.(Docs) (L) 
DocMain.[Docs] (P) 

ExecSearch (P) 

Mainout.[Main] (L) 
Mainout.[Mainj (P) 

(F) : Mainout.[Main] (P) 

Mainln.[Main] (L) 
Mainln.[Main] (P) 
ThesOut.[Main] (L) 
ThesOut.fMain] (P) 
Broln.lMainJ’Broader (P) 
AddNar (P) 

DelNar (P) 

DefTerm (P) 

EditTerm (P) 

EditTerm2 (P) 

LoadTerm (P) 

NewTerm (P) 

RenBro (P) 
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Broln (V) : 

Brolnc.[MainpBroader (P) 
Broln.[Main]’Broader (P) 

bSave (V) 

Buffer.[Main] (L) 
Buffer.[Main] (P) 
Results.[Main] (L) 
Results. [Main] (P) 

bSearch (V) : 

Buffer.[Main] (L) 
Buffer.[Main] (P) 

bSalect (V) 

Relln.[Main]'Related (L) 
Relln.tMainj’Related (P) 
Broln. [Mainj’Broader (L) 
Broln.[Main]’Broader (P) 
Narln.iMainj’Narrower (L) 
Narln.iMainj'Narrower (?) 
Picln.[Main]’Pictures (L) 
Picln.[Main]’Pictures (P) 

bTermPIcDow (V) 

Mainout.[Main] (L) 
Mainout.fMainj (P) 
LoadTerm (P) 

bTermPIcUp (V) 

Mainout.fMain] (L) 
Mainout.[Mainj (P) 
LoadTerm (P) 

Buffer. [Main] (L) 

DoBuffer (P) 
HandleMenu (P) 

ButtState (E) 

Mainout.[Main] (P) 
Keys. [Docs] (?) 
LoadTerm (P) 

CancelDIg (E) 

HandleMenu (P) 

CancelEntry (E) : 

Termlndex.[Main] (P) 
Dummy.[Main] (P) 

CloseRes (E) 

LoadPics (?) 

CopyPIcs (P) 

NewTerm (P) 

CountPIct (E) : 

LoadPics (P) 

ct (V) : 

DocMain.[Docs] (P) 
Keys. [Docs] (P) 
LoadPics (?) 

Date [Docs] (F) 

DocMain.[Docs] (L) 
DocPrint.[Docs] (L) 
DumpDocs (?) 

DefOp (V) : 

Prefs.[Main] (P) 
DoPrefs (P) 
ExecSearch (P) 
Startup (P) 
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DelBro (P) : 

DelNar (P) 

DelPIc (P) : 

Del Pics (P) 

DelRel (P) : 

DelTerm (P) 
DisableAll (P) : 


DoAbout (P) 
DocDum (L) 
DocLlst (P) 

DocLlst (L) : 

DocMain (L) 
DocMain. [Docs] 
DocMalnt.[Docs] 
DocOut (V) : 

DocOutO (V) 
DocPrint.[Docs] 


DelTerm (P) 
EditTerm (P) 
EditTerm2 (P) 

DerTerm (P) 
EditTerm (P) 
EdrtTerm2 (P) 

EditTerm (P) 
EditTerm2 (P) 

Maint.[Main] (P) 
HandleMenu (P) 

DelTerm (P) 
EditTerm (P) 
EditTerm2 (P) 

Maint.[Main] (P) 
HandleMenu (P) 

DelPics (P) 
DelTerm (P) 
DoAbout (P) 
DocList (P) 
DoFind (P) 
DoPrefs (P) 
DumpDocs (P) 
EditPics (P) 
EditTerm (P) 
EditTerm2 (P) 
ExecSearch (P) 
NewDoc (P) 
NewPic (P) 
NewTerm (P) 
Piclndex (P) 
ShowKeys (P) 

HandleMenu (P) 



DumpDocs (P) 

DocMaint.[Docs] (P) 
HandleMenu (P) 

DocList (P) 
DumpDocs (P) 

DocList (P) 

(L) : 

NewDoc (P) 

(L) : 

MainEventLoop (P) 
DumpDocs (P) 
DumpDocs (P) 

(L) : 

DocMain.[Docs] (P) 
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Document (V) 
DoFInd (P) 

done (V) 


DoPrefs (P) 
dum (V) : 

Dummy (L) : 

Dummy. [Main] 
DumpDocs (P) 

Ed it Pics (P) 

EditTerm (P) 

Ed It Ter m2 (P) 
EdTemp (V) 

EdTerm (V) 


: LoadPics (P) 

Opening.(Main) (P) 
HandleMenu (P) 

Termlndex.(Main) (P) 
Dummy.[Main] (P) 
PicDum.[Pics] (P) 
TermDum.[lndex] (P) 
DelPics (P) 

DeiTerm (P) 

DocList (P) 

DoRnd (P) 

DumpDocs (P) 
EditPics (P) 

EditTerm (P) 

ExecS earch (P) 
Piclndex (P) 

PicList (P) 
SerialHandler (P) 
TermList (P) 

HandleMenu (P) 

DelBro (P) 

DelNar (P) 

DelRel (P) 

DoRnd (P) 

(L) : ExecSearch (P) 

: DocMaint.[Docs] (P) 

HandleMenu (P) 

Maint.[Main] (P) 
HandleMenu (P) 

: Maint.[Main] (P) 

HandleMenu (P) 

: Mainout.[Main] (P) 

EditTerm (P) 
EditTerm2 (P) 

DelPics (P) 

DefTerm (P) 

EditPics (P) 

EditTerm (P) 

EditTerm2 (P) 

Piclndex (P) 
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EnableAll (P) : DelPics (P) 

DeUerm (P) 
DoAbout (P) 
DocList (P) 
DoFnd (P) 
DoPrefs (P) 
DumpDocs (P) 
EditPics (P) 
EditTerm (P) 
EditTerm2 (P) 
ExecSearch (P) 
NewDoc (P) 
NewPic (P) 
NewTerm (P) 
Piclndex (P) 
ShowKeys (P) 


end (V) 

ShowKeys (P) 

ExecSearch (P) 

Buffer.[Main] (P) 

FacPIc (V) : 

Startup (P) 

Format [Docs] (F) 

DocMain.[Docs] (L) 
DocPrint.[Docs] (L) 
DumpDocs (P) 

GetPlet (E) : 

LoadPics (P) 

hi (V) : 

DelPics (P) 
DelTe'rm (P) 
DoAbout (P) 
DoPrefs (P) 
EditPics (P) 
EditTerm (P) 
LoadPics (P) 
Piclndex (P) 
PicList (P) 
TermList (P) 

h2 (V) : 

DelPics (P) 
DelTerm (P) 
DoAbout (P) 
DoPrefs (P) 
EditPics (P) 
EditTerm (P) 
LoadPics (P) 
Piclndex (P) 
PicList (P) 
TermList (P) 

HandleMenu (P) 

Mainout.[Main] (P) 
Buffer ; [Main] (P) 
Opening.[Main] (P) 
Maint.[Main] (P) 
DocMaint.[Docs] (P) 


id (V) : 


LoadPics (P) 


Thursday, July 6, 1989 


Cross References Listing 


164 


ind (V) : 

DocMain.[Docs] (P) 
LoadPics (P) 
NewDoc (P) 

Item (V) 

HandleMenu (P) 

Keys.[Docs] (L) 

ShowKeys (P) 

Keywords [Docs] (F) 

DocMain.[Docs] (P) 
Keys. [Docs] (P) 
DocPrint.[Docs] (P) 
DumpDocs (P) 
NewDoc (P) 

LlneOut.[Maln] (L) 

Results. [Main] (P) 

LinStr (V) : 

Mainout.[Main] (P) 

LoadBuffer (P) 

Buffer.[Main] (P) 

LoadPIcs (P) : 

Maint.[Main] (P) 
HandleMenu (P) 

LoadTerm (P) 

Mainout.[Main] (P) 
DoFind (P) 
Piclndex (P) 

Malnln (L) 

EditTerm (P) 
EditTerm2 (P) 
NewTerm (P) 

Mainout.[Main] (L) : 

MainEventLoop (P) 

Maint.[Main] (L) 

MainEventLoop (P) 

MatchBro (P) 

EditTerm (P) 
EditTerm2 (P) 
NewTerm (P) 

MatchNar (P) 

EditTerm (P) 
EditTerm2 (P) 
NewTerm (P) 

MatchOldBro (P) 

DefTerm (P) 
EditTerm (P) 
EditTerm2 (P) 

MatchOldNar (P) 

DefTerm (P) 
EditTerm (P) 
EditTerm2 (P) 

Match Old Pic (P) 

EditTerm (P) 
EditTerm2 (P) 

MatchOldRel (P) : 

DefTerm (P) 
EditTerm (P) 
EdltTerm2 (P) 

MatchPIcs (P) 

EditTerm (P) 
EditTerm2 (P) 
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MatchRel (P) 

EditTerm (P) 
EditTerm2 (P) 
NewTerm (P) 

Menu (V) 

HandleMenu (P) 

MTPIc (V) : 

Mainout.[Main] (P) 
LoadTerm (P) 
Startup (P) 

name (V) : 

LoadPics (P) 

Name (F) 

AddPic (P) 
CopyPics (P) 
DelPic (P) 
DelPics (P) 
EditPics (P) 
LoadTerm (P) 
MatchOldPic (P) 
MatchPics (P) 
Piclndex (P) 

Name [1ndex]'Plctures (F) 

: ILayout2.[lndex]'Pictures (L) 

Name [Main] (F) 

Mainout.[Main] (P) 
Mainln.[Main] (P) 

Name [MalnJ'PIctures (F) 

: Piclnc.[Main]'Pictures (P) 

PicIn.IMainJ'Pictures (L) 
PicIn.JMainj'Pictures (P) 

Name [Pics] (F) 

Mainout.[Main] (P) 
Picln.[Main]‘Pictures (P) 
PicList.[Pics] (L) 
Picln.[Pics] (L) 

Piclndex. [Pics] (L) 
AddPic (P) 

DelPic (P) 

DelPics (P) 

EditPics (P) 

LoadPics (P) 

LoadTerm (P) 
MatchOldPic (P) 
MatchPics (P) 

Piclndex (P) 

PicList (P) 

Startup (P) 

Narln (V) : 

Narlnc.[Main]'Narrower (P) 
Narln.tMainj’Narrower (P) 
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Narrower [Main] (F) 


new (V) 

NewOoc (P) 
NewPIc (P) 
NewTerm (P) 
Number [Docs] (F) 

ok (V) : 


Old Main (V) : 

oldname (V) 


Mainout.[Main] (P) 
Mainln.[Main] (L) 
Mainln.[Mainj (P) 
ThesOut.[Main] (L) 
ThesOut.[Mainj (P) 
Narln.[Main]’Narrower (P) 
AddBro (P) 

DelBro (P) 

DerTerm (P) 

EditTerm (P) 

EditTerm2 (P) 

LoadTerm (P) 

NewTerm (P) 

RenNar (P) 

Relln.[Main]'Related (P) 
Broln.[Main]’Broader (P) 
Narln.[Mainj'Narrower (P) 
Picln.[Main]’Pictures (P) 

DocMaint.[Docs] (P) 
HandleMenu (P) 

Maint.[Main] (P) 
HandleMenu (P) 

Maint.[Main] (P) 
HandleMenu (P) 

DocMain.[Docs] (L) 
DocList.[Docs] (L) 
DocPrint.[Docs] (L) 
DocList (P) 

DumpDocs (P) 

Buffer.fMain] (P) 
Results.[Main] (P) 
DocMain.[Docs] (P) 
DelPics (P) 

DefTerm (P) 

DocList (P) 

DoFind (P) 

DoPrefs (P) 

DumpDocs (P) 

EditPics (P) 

EditTerm (P) 

EditTerm2 (P) 

HandleMenu (P) 
LoadBuffer (P) 

NewDoc (P) 

NewTerm (P) 

Piclndex (P) 

PicList (P) 

PrintThes (P) 

Save Buffer (P) 

TermList (P) 

Main In. [Main] (P) 

LoadPics (P) 
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OldScreen (V) 
Opening. [Main] (L) 
Open Res (E) 

OPIcI (V) : 

OP!c2 (V) : 

OPIc3 (V) : 

ovtk (V) : 

Paste (V) : 

PerPIc (V) : 

pic (V) : 

Pic [Pics] (F) : 


PicDum (L) 

PIcError (L) : 

Picln (L) : 

Picln (V) : 

Piclndex (P) 
Piclndex (L) 
PIcLIst (P) 
PIcLIst (L) 


MainEventLoop (P) 

MainEventLoop (P) 

LoadPics (P) 

Opening.[Main] (L) 
Startup (P) 

Opening.(Main) (L) 
Startup (P) 

Opening.[Main] (L) 
Startup (P) 

Keys.[Docs] (P) 

Keys. [Docs] (P) 
ShowKeys (P) 

Startup (P) 

LoadPics (P) 

Mainout.fMain] (P) 
Picln.[Main]’Pictures (P) 
PicList.(Pics) (L) 
Picln.[Pics] (L) 
Piclndex.[Pics] (L) 
LoadPics (P) 

LoadTerm (P) 

Startup (P) 

DelPics (P) 

EditPics (P) 

Piclndex (P) 

PicList (P) 

LoadPics (P) 

EditPics (P) 

NewPic (P) 

Piclnc.[Main]’Pictures (P) 
Picln. [Main]'Pictures (P) 

HandleMenu (P) 

Piclndex (P) 

Picln.[Main]’Pictures (P) 

DelPics (P) 

EditPics (P) 

PicList (P) 
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Pictures [Index] (F) 

Mainout.[Main] (P) 
AddPic (P) 
CopyPics (P) 
DelPic (P) 

DelPics (P) 
EditPics (P) 
LoadTerm (P) 

Pictures [Main] (F) 

Mainout.[Main] (P) 
Mainln.[Main] (L) 
Mainln.[Main] (P) 
Picln.[Main]’Pictures (P) 
DelPics (P) 

DelTerm (P) 

EditPics (P) 

EditTerm (P) 

EdrtTerm2 (P) 

LoadTerm (P) 

NewTerm (P) 

Prefs.[Maln] (L) 

DoPrefs (P) 

PrintThes (P) 

HandleMenu (P) 

ProgPIc (V) : 

Startup (P) 

Qult4D (E) : 

DoQuit (P) 
HandleMenu (P) 

ReadButt (E) 

Mainout.[Main] (P) 
Opening.[Main] (P) 
Keys.(Docs) (P) 

RecStr (V) 

Mainout.[Main] (P) 
LoadTerm (P) 

ref (V) : 

LoadPics (P) 

Related [Main] (F) : 

Mainout.[Main] (P) 
Mainln.[Main] (L) 
Mainln.[Mainj (P) 
ThesOut.fMain] (L) 
ThesOut.[Mainj (P) 
Relln.[Main]’Related (P) 
AddRel (P) 

DelRel (P) 

DefTerm (P) 

EditTerm (P) 

EditTerm2 (P) 

LoadTerm (P) 

NewTerm (P) 

RenRel (P) 

Relln (V) : 

Rellnc.[Main]'Related (P) 
Relln.[Main]'Related (P) 

RenBro (P) 

EditTerm (P) 
EditTerm2 (P) 
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RenNar (P) : 


EditTerm (P) 
EditTerm2 (P) 

RenRel (P) 


EditTerm (P) 
EditTerm2 (P) 

ResText (V) 


ExecSearch (P) 
SerialHandler (P) 

Results.[Maln] 

<L) : 

ExecSearch (P) 

SaveBuffer (P) 

: 

Buffer.[Main] (P) 

Screen (V) : 


Mainout.[Main] (P) 
Buffer.[Main] (P) 
Opening.[Main] (P) 
Maint.(Main) (P) 
DocMaint.[Docs] (P) 
DoFind (P) 

EnableAll (P) 
HandleMenu (P) 
MainEventLoop (P) 
Piclndex (P) 

Startup (P) 

Screen Redraw 

(E) : 

LoadTerm (P) 
Piclndex (P) 

SetlntegerRes 

(E) : 

Startup (P) 

ShowKeys (P) 

: 

DocMain.(Docs) (P) 

start (V) : 


ShowKeys (P) 

Status [Docs] 

<F) : 

DocMain.[Docs] (L) 
DocPrint.[Docs] (L) 

str (V) : 


Breakup (P) 

tem (V) : 


ExecSearch (P) 

temp (V) 


BreakUp (P) 
DeUerm (P) 
EditPics (P) 
EditTerm (P) 
EditTerm2 (P) 
LoadButfer (P) 
NewTerm (P) 
SerialHandler (P) 

ter (V) : 


Buffer.[Main] (P) 
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Term [Docs] (F) 


Term [Index] (F) 
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AddBro (P) 

AddNar (P) 

AddRel (P) 

DelBro (P) 

DelNar (P) 

DelRel (P) 

DumpDocs (P) 

LoadTerm (P) 

MatchBro (P) 

MatchNar (P) 
MatchOldBro (P) 
MatchOldNar (P) 
MatchOldRel (P) 
MatchRel (P) 

NewDoc (P) 

RenBro (P) 

RenNar (P) 

RenRel (P) 

DocMain.[Docs] (P) 
Keys.[Docs] (P) 
DocPrint.(Docs) (P) 

Mainout.(Main) (P) 
Relln.[Main]’Related (P) 
Broln.[Main]'Broader (P) 
Narln.[Mainj’Narrower (P) 
TermList.[lndex] (L) 
AddBro (P) 

AddNar (P) 

AddRel (P) 

DelBro (P) 

DelNar (P) 

DelPics (P) 

DelRel (P) 

DelTerm (P) 

EditPics (P) 

EditTerm (P) 

EditTerm2 (P) 

LoadTerm (P) 

MatchBro (P) 

MatchNar (P) 
MatchOldBro (P) 
MatchOldNar (P) 
MatchOldRel (P) 

MatchRel (P) 

NewTerm (P) 

Piclndex (P) 

RenBro (P) 

RenNar (P) 

RenRel (P) 

TermList (P) 
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Term [Main] (F) : Mainout.[Main] (P) 

Termlndex.[Main] (L) 
Mainln.[Main] (L) 
Mainln.[Main] (P) 
Opening.[Main] (P) 
ThesOut.[Main] (L) 
ThesOut.[Main] (P) 
AddBro (P) 

AddNar (P) 

AddRel (P) 

DelBro (P) 

DelNar (P) 

DelPics (P) 

DelRel (P) 

DeUerm (P) 

DoFind (P) 

EditPics (P) 
EditTerm (P) 


EditTerm2 (P) 
LoadTerm (P) 




NewTerm (P) 
Piclndex (P) 
PrintThes (P) 
RenBro (P) 
RenNar (P) 
RenRel (P) 

Term [Main]'Broader 

(F) : 

Brolnc.[Main]'Broader (P) 
Broln.[Main]’Broader (L) 
Broln.tMainj’Broader (P) 
Bro.[Main]’Broader (L) 

Term [MainJ'Narrower 

(F) : 

Narlnc.[Main)‘Narrower (P) 
Narln.[Main]'Narrower (L) 
Narln.lMainj’Narrower (P) 
Nar.[Main]’Narrower (L) 

Term [Maln]'Related 

(F) : 

Rellnc.[Main]’Related (P) 
Relln.[Main]’Related (L) 
Relln.[Main]'Related (P) 
Rel.[Main]’Related (L) 

TermDum (L) : 


DetTerm (P) 
EditTerm (P) 
Piclndex (P) 
Term List (P) 

Termlndex (L) : 


DoFind (P) 

TermLIst (P) 


Relln.[Main]‘Related (P) 
Broln.[Main]’Broader (P) 
Narln .[Mai nj’Nar rower (P) 

TermLIst (L) : 


DerTerm (P) 
EditTerm (P) 
Piclndex (P) 
TermList (P) 
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Text [Docs] (F) : 

DocMain.[Docs] (L) 
DocPrint.[Docs] (L) 
DumpDocs (P) 
ShowKeys (P) 

Text2Array (E) 

DumpDocs (P) 
ExecS earch (P) 

ThesOut (L) 

PrintThes (P) 

timeout (V) 

ExecSearch (P) 

UpdateMenuBar (E) 

DisableAll (P) 
EnableAll (P) 
HandleMenu (P) 
MainEventLoop (P) 
Startup (P) 

Validate Dig (E) 

Mainout.[Main] (P) 
Buffer.[Main] (P) 
Opening.fMain] (P) 
Maint.[Main] (P) 
Keys.fDocs] (P) 
DocMaint.[Docs] (P) 

valldateentry (E) 

PicDum.[Pics] (P) 
DocDum.(Docs) (P) 
TermDum.flndex] (P) 

vAnd (V) 

Prefs.fMain] (L) 
Prefs.[Main] (P) 
DoPrefs (P) 

vBro (V) 

LoadTerm (P) 

vCan (V) 

Prefs.[Main] (L) 

vErrMess (V) 

PicError.[Pics] (L) 
LoadPics (P) 

vErrPIc (V) 

PicError.[Pics] (L) 
LoadPics (P) 

vGo (V) : 

Mainout.(Main) (L) 
Mainout.[Mainj (P) 
LoadTerm (P) 

vKeyPrint (V) : 

DocPrint.fDocs] (L) 
DocPrint.[Docsj (P) 

vKeys (V) 

Mainout.[Main] (P) 
Buffer.fMain] (L) 
Buffer.[Mainj (P) 
Keys.[Docs] (P) 
ExecSearch (P) 
LoadButfer (P) 
NewDoc (P) 
SaveBuffer (P) 
Startup (P) 
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vKeysO (V) 

Mainout.[Main] (P) 
Buffer.[Main] (P) 
DocMain.[Docs] (P) 
Keys.[Docs] (P) 
ExecSearch (P) 
LoadBuffer (P) 
NewOoc (P) 
SaveBuffer (P) 
Startup (P) 

vLlne (V) : 

Results.[Main] (P) 
LineOut.[Main] (L) 

vLInk (V) : 

Mainout.[Main] (L) 
Mainout.[Mainj (P) 
LoadTerm (P) 

vLInkPic (V) : 

Mainout.[Main] (L) 
Mainout.[Mainj (P) 
LoadTerm (P) 

vName (V) 

Piclnc.[Main]'Pictures (L) 
Piclnc.[Mainj’Pictures (P) 
PicError.[Pics] (L) 
LoadPics (P) 

vNar (V) : 

LoadTerm (P) 

vNextLInk (V) 

Mainout.[Main] (L) 
Mainout.[Main] (P) 
LoadTerm (P) 

vOK (V) : 

P refs. [Main] (L) 
PicError.[Pics] (L) 

vOr (V) : 

Prefs.[Main] (L) 
Prefs.[Main] (P) 

vOTerm (V) : 

Relln.[Main]'Related (P) 
Broln.[Main]'Broader (P) 
Narln.[Main]’Narrower (P) 
Picln.[Main]'Pictures (P) 

vOTitl (V) : 

Opening.[Main] (L) 
Opening.[Main] (P) 

vOTlt2 (V) : 

Opening.[Main] (L) 
Opening.[Mainj (P) 

vOTit3 (V) : 

Opening. [Main] (L) 
Opening.[Main] (P) 

vPage (V) 

ThesOut.[Main] (L) 
ThesOut.[Main] (P) 

vPicName (V) 

Mainout.[Main] (L) 
Mainout.[Main] (P) 
LoadTerm (P) 
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vPrevLInk (V) : 

Mainout.fMain] (L) 
Mainout.[Mainj (P) 
LoadTerm (P) 

vRel (V) : 

LoadTerm (P) 

vResults (V) 

Results.[Main] (L) 
Resutts.(Main) (P) 

vResultsO (V) 

ResuKs.[Main] (P) 

vTsrm (V) : 

Mainout.JMain] (L) 
Rellnc.[Main]'Related (L) 
Rellnc.[Mainj’Related (P) 
Brolnc.[Main]’Broader (L) 
Brolnc.[Mainj'Broader (P) 
Narlnc.[Main]'Narrower (L) 
Narlnc.[Main]'Narrower (P) 
LoadTerm (P) 

vTermKeys (V) : 

DocMain.[Docs] (P) 
Keys.[Docs] (L) 
Keys.[Docsj (P) 
ShowKeys (P) 

vTsrm KsysO (V) 

DocMain.[Docs] (P) 
Keys.[Docs] (P) 

vTermPic (V) 

Mainout.[Main] (L) 
Mainout.[Main] (P) 
Picln.[Main]'Pictures (L) 
Picln.(Main]'Pkrtures (P) 
LoadTerm (P) 

vTitle (V) : 

Termlndex.fMain] (L) 
Termlndex.[Mainj (P) 
Picln.[Pics] (L) 
Piclndex.[Pics] (L) 
Piclndex.[Pics] (P) 
DocList.fDocs] (L) 
DocUst (P) 
DumpDocs (P) 
EditPics (P) 

wl (V) : 

DelPics (P) 
DelTerm (P) 
Do About (P) 
DoPrefs (P) 
EditPics (P) 
EditTerm (P) 
LoadPics (P) 
Piclndex (P) 
PicList (P) 
TermList (P) 
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w2 (V) : 

Del Pics (P) 
DefTerm (P) 
DoAbout (P) 
DoPrefs (P) 
EditPics (P) 
EditTerm (P) 
LoadPics (P) 
Piclndex (P) 
PicList (P) 
TermList (P) 

x (V) : 

Mainout.[Main] (P) 
Opening.[Main] (P) 
Keys. [Docs] (P) 
Breakup (P) 

xDMod (V) : 

TermList.[lndex] (P) 
Piclndex (P) 
TermList (P) 

xEdlt (V) : 

Mainln.[Main] (P) 
EditTerm (P) 
EditTerm2 (P) 
NewTerm (P) 

xNewDoc (V) 

DocMain.[Docs] (P) 
DocList (P) 

NewDoc (P) 

xOldScreen (V) 

HandleMenu (P) 

xPicAII (V) : 

PicList.[Pics] (P) 
EditPics (P) 
PicList (P) 

xTimeout (V) : 

ExecSearch (P) 

[Docs] (F) : 

DocMain.[Docs] (P) 
DocList (P) 
DumpDocs (P) 
MainEventLoop (P) 
NewDoc (P) 
ShowKeys (P) 
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[Index] (F) : Mainln.[Main] (P) 

Rellnc.[Main]'Related (P) 
Relln.[Main]’Related (P) 
Brolnc.[Main]’Broader (P) 
Broln.[Main]’Broader (P) 
Narlnc.[Main]'Narrower (P) 
Narln.[Main]’Narrower (P) 
DelPics (P) 

DelTerm (P) 

EditPics (P) 

EditTerm (P) 

EditTerm2 (P) 

MatchBro (P) 

MatchNar (P) 

MatchOldBro (P) 
MatchOldNar (P) 
MatchOldRel (P) 

MatchRel (P) 

NewTerm (P) 

Piclndex (P) 

TermList (P) 

[Main] (F) : Results.[Main] (P) 

ThesOut.[Main] (P) 

AddBro (P) 

AddNar (P) 

AddRel (P) 

DelBro (P) 

OelNar (P) 

DelPics (P) 

DelRel (P) 

DelTerm (P) 

DoAbout (P) 

DoBuffer (P) 

DoFind (P) 

DoPrefs (P) 

EditPics (P) 

EditTerm (P) 

EditTerm2 (P) 

ExecSearch (P) 
HandleMenu (P) 

LoadTerm (P) 
MainEventLoop (P) 
NewTerm (P) 

PrintThes (P) 

RenBro (P) 

RenNar (P) 

RenRel (P) 
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[Plcsl (F) : Mainln.[Main] (P) 

Piclnc.[Main]'Pictures (P) 
Picln.[Main]'Pictures (P) 
AddPic (P) 

Del Pics (P) 

EditPics (P) 

EditTerm (P) 

EditTerm2 (P) 

LoadPics (P) 

MatchOldPic (P) 
MatchPics (P) 

NewPic (P) 

Piclndex (P) 

PicList (P) 



Section 6 

External Procedure Descriptions 


EXTERNAL PROCEDURE DOCUMENTATION 




ButtState (x; y) 
x : Integer 
y : String 

Enables or disables the button controlled by the ButtControl external 
area procedure. If x=0, the button is disabled, x=1 , it is enabled, y is the 
name of the button to be enabled or disabled. 

CancelDIg 

Cancels the current dialog by posting the key equivalent of hitting a 
cancel button in a dialog. 

CancelEntry 

Cancels the current layout by posting the key equivalent of hitting a 
cancel button in a layout. 

CloseRes (x) 
x : Integer 

Closes the resource file opened by the external OpenRes. x is the 
reference number returned by OpenRes. 

CountPict (x; y) 
x : Integer 
y : Integer 

Counts the number of ’PICT resources in a file opened by the external 
OpenRes. x is the reference number of the file returned by OpenRes. y is 
the number of 'PICT resources in the file. 

GetPict (u; v; x; y; z) 
u : Integer 
v : Integer 
x : Picture 
y : String 
z : Integer 

Retrieves a picture from an open resource file opened by the external 
OpenRes. u is the reference number returned by OpenRes. v is the 
index used to retrieve multiple pictures (this external uses the Macintosh 
routine _Get1lndResource, described in Inside Macintosh vol. IV, and the 
behavior of this parameter is described there.) x is the picture retrieved, 
y is the resource name, z is the resource id number of the ’PICT 
resource. 

OpenRes (x; y) 
x : String 
y : Integer 

Opens a resource file, x is the name of the resource file to be opened, y 
is the reference number returned for accessing the file. 



Quit4D (x) 

x : Integer 
y : String 

Quits 4th Dimension, x can have the following values: 

x =1 , Quit displays the "Are you sure?" dialog, then, if user clicks the OK 
button, flushes and ejects all disks and ShutDown the Macintosh. 

x =2, Quit displays the standard dialog to open another Macintosh 
application. 

x =3, Quit displays the "Are you sure?" dialog, then, if user clicks the OK 
button, goes back to the Finder. 

x =1 1 , like x =1 but without displaying the "Are you sure?" dialog 

x =12, like x =2 but when the user quits the launched application he will 
go back to 4D and not to the Finder. 

x =13, like x =3 but without displaying the "Are you sure?" dialog. 

If your database is running under multi-user mode : 2 and 12 are not 
supported. 1 and 1 1 work respectively like 3 and 13. Quit4D works 
correctly under multi-user mode only if the database has been opened 
with a password with an associated startup procedure. 

ReadButt (x; y) 
x : Integer 
y : String 

Reads the button controlled by the ButtControl external area procedure. 

If x=0, the button was not clicked, x=1 , it was clicked, y is the name of the 
button to be tested. 

ScreenRedraw 

Redraws the screen. Sometimes necessary since 4D does not do proper 
updating in some cases. 

SetlntegerRes (x; y) 
v : String[4] 
x : Integer 
y : Integer 
z : Integer 

Sets the value of a resource offset. In this case it is used to modify the 
'CUST id 0 resource. This is equivalent to modifying the database 
defaults using the 4D Customizer program, v is the resource type, x is 
the resource id. y is the offset in integer quantities, z is the value to set 
the offset to. 


To change 4D defaults use: 


SetlntegerRes(’CUST; 0; offset; value) 
where offsets are: 

1. DAslnPrinting:0 or 1. Default 0: DA's are not accessible during printing. 
Set to 1 for enabling using DA’s during printing. 

For running 4D in the background in MultiFinder, this must be set to 1. 

2. DAslnThermometers:0 or 1. Default 0: DA’s are not accessible during 
thermometers, i.e. the window during a Search. Set to 1 for enabling 
using DA's during thermometers. 

For running 4D in the background in MultiFinder, this must be set to 1 . 

3. CursorSpinRate:The spin rate of the Beach-Ball cursor during 
procedure execution. If it is 0 then the Beach-Ball does not appear. A 
positive or negative not equal to 0 specifies the spin rate, with the rate 
being modulo 32 of this value. 

Normal value to set is 16, Default value is 0. 

4. NewSubRecASCII:The ASCII code of the character to enter a new 
subrecord. 

Default value is 9 (Tab) with modifiers set to the Command key. 

5. NewSubRecModifiers:The value of the Modifiers related to 4. 

NewS ubRecASC 1 1 . 

Default value is 256. (Command key ) 

6. EnterRecASCll.The ASCII code of the character to enter a record. 
Default value is 3 (Enter) with no modifiers. 

7. EnterRecModifiers:The value of the Modifiers related to 6. 
EnterRecASCII. 

Default value is 0. (No Modifiers ) 

8. CancelRecASCII:The ASCII code of the character to not validate a 
record. 

Default value is 46 (Period) with modifiers set to 256 (Command) 

9. CancelRecModifiersrThe value of the Modifiers related to 8. 

Cancel RecASCII. 

Default value is 256. (Command key ) 


10. ValidateDialogASCIP.The ASCII code of the character to validate a 
DIALOG. 

Default value is 3 (Enter) with no modifiers. 

1 1 . ValidateDialogModifiers:The value of the Modifiers related to 10. 
ValidateDialogASCII. 

Default value is 0. (No Modifiers ) 

12. CancelDialogASCILThe ASCII code of the character to not validate a 
DIALOG. 

Default value is 46 (Period) with modifiers set to 256 (Command) 

13. CancelDialogModifiers:The value of the Modifiers related to 12. 
CancelDialogASCII. 

Default value is 256. (Command key ) 

14. WindowPosition Specifies the default position of the 4D window. 

if - o then the window size = screen size, and the window title is hidden 
behind the Menu Bar. 

if = 1 (Default) the window size = screen size. 

if - 2 then the window is displayed according to the values in the items 
15,16,17 and 18. 

if - 3 then the window is displayed according to the values in the items 
15,16,17 and 18, and is centered on the screen. 

15. TopWindow:The value of the Top side of the window. 

1 6. LeftWindow:The value of the Left side of the window. 

17. Bottom Window:The value of the Bottom side of the window. 

18. RightWindow:The value of the Right side of the window. 

{ 15,16,17 and 18 have default values = -1 and can be used only if 
integer number 14. contains 2 or 3. 

19. ResizeWindlnEnviron:Allows resizing of the window when changing 
from Design or User to Custom Environment. 

If = 0 (Default) then there is no change. 



If = 1 then the window is resized according to the value specified in 
integer number 14. 

20. ResizeWindAfterMenu:Allows resizing of the window after the 
execution of a 4D procedure called from a Menu. 

If = 0 (Default) then thewindow is not resized. 

If = 1 then the window is resized according to the value specified in 
integer number 14. 

21. Reservedl :Reserved by program, do not use. 

22. Reserved2 Reserved by program, do not use. 

23. Reserved3:Reserved by program, do not use. 

24. Reserved4:Reserved by program, do not use. 

25. Resen/ed5:Reserved by program, do not use. 

26. CancelDuring:Specifies if the "During" phase is called when the user 
does not validate the data entered, i.e. if the user clicks a Don't Accept 
button or types the associated Don't Accept Key with Modifiers. 

If = 0 (Default) then "During" is called. 

If = 1 then "During is not called. 

27. Reserved6:Reserved by progarm, do not use. 

28. DiacriticalSensitive:Specifies if the Search is diacritical sensitive. 

If = 0 then the searching is not diacritical sensitive. 

Ex. Search([File1]Name="A") will return all records with Name equal to 
"A", "a", "A","d", etc. 

If = 1 28 then searching is diacritical sensitive. 

Ex. Search([File1]Name="A") will return all records with Name equal to 
"A" and "a" only. 

For more information please refer to the 4th Dimension Utilities and 
Developer’s Notes and its chapter on 4D customizer. 


For example: 



SetlntegerRes("CUST";0;3;1 6) will set the value of the 3rd integer in the 
CUST resource with 

ID = 0 to 16. This sets the CursorSpinRate to 16. 

Text2Array (t; u; v; x; y; z) 
t : Text 
u : String 
v : Integer 
x : String 
y : Integer 
z : Integer 

Text2Array is an external procedure that will convert a Text variable or 
field into an array of lines that correspond to the width of each of the 
lines of the variable. Text2Array when used with the 4D command 
PRINT LAYOUT are particularly useful for the output of variable length 
text files. They could also be used to create scrollable arrays that would 
simulate scrollable text boxes. 

t is the name of an alphanumeric 4D variable or Field of type text, it is the 
text that will be used to create the scrollable array, u is the prefix to your 
array it is the name of the scrollable array variable that the array would 
be displayed in, it should not be more then 6 characters in length, v is 
the width of the output that will be used to display the array, it is 
calculated in pixels, if you specify 504 that would mean that each line of 
the array would be formatted to display in 504 pixels or 7 inches, x is the 
name of the font to be used in the output, If the Font you specify is not 
installed the default application font (usually Geneva ) will be used, y is 
the size of the font in pixels, z is the style of the font which is derived in 
the same way as the FONT STYLE command in 4D, ie; Bold =1 , Italic = 

2, Underline = 4, Outline = 8, and Shadow = 16. Therefore to format a 
line for Bold, Italic, and Shadow, 19 would be passed in the z 
paramater.. The Size, Font and Style are used to calculate the width of 
each line. With non-proportional fonts, like Chicago and Geneva not all 
characters are the same width, so the proper specification of Size, Font 
and Style are vital for proper output. 

UpdateMenuBar 

Redraws the menu bar. Sometimes necessary since 4D does not do 
proper updating in some cases. 

ValidateDIg 

Validates the current dialog by posting the key equivalent of hitting an OK 
button in a dialog. 

ValldateEntry 

Cancels the current layout by posting the key equivalent of hitting an OK 
button in a layout. 



